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ABSTRACT 


The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer 
program has been developed at the Naval Postgraduate School to aid in the preliminary 
design of rotorcraft and has been updated to include a Graphical User Interface (GUI). 
This thesis is a continuation of the program, focusing on stability and control analysis. 
The trim solution for a specified flight condition is computed from the Performance 
module of the program. This trim solution is then used to compute stability derivatives 
for the specified flight condition and a linear state space model is created. This solution 
can then be used to perform various time and frequency domain analyses or can be saved 


to a file for future use. 





DISCLAIMER 


Readers are cautioned that the computer code in this thesis may not have been 
exercised for all cases of interest. While effort has been made, within the time available, 
to ensure that the program is free of computational and logical error, additional 
verification should be applied. This version of JANRAD was written and tested in 
MATLAB version 5.0 Student Edition. The use of this application is at the risk of the 


user. 
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I. INTRODUCTION 


A. BACKGROUND 


The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer 
program was originally developed by students at the Naval Postgraduate School (NPS) as 
an aid to design for the 1993 American Helicopter Association (AHS) Design 
Competition. It has since undergone six upgrades. 

The original JANRAD developed by Robert Kirk Nicholson, Jr. [Ref. 1] was a 
command line type program written in MATLAB®, that was used for performance 
analysis. Inputs for the configuration of the proposed helicopter were entered via the 
command line and a trim solution for a specified flight condition was obtained. Central to 
the performance analysis is the harmonic balance method of Gerstenberger and Wood 
[Ref. 2]. Immediately following Nicholson's work was the update created by Walter M. 
Wirth [Ref. 3], which provided a linear state space representation for the helicopter that 
could be used for stability and control analysis. The third version by Juan D. Cuesta [Ref. 
4] and revised by Daniel S. Hiatt [Ref. 5] added a Blade Dynamics module to JANRAD 
utilizing a modified Myklestad Prohl Transfer Matrix Method. These four versions of 
JANRAD were validated by David M. Eccles [Ref. 6] through comparison with NASA- 
Army H-34 flight test data (1964) and more recent NASA-Army UH-60A flight tests at 
NASA Ames (1992). 

The next generation JANRAD Version 5.0 was introduced by Chris F. Lapacik 


[Ref. 7] and revised by William L. Hucke (Ref. 8]. This version brought the JANRAD 


program up to date with the Microsoft® Windows® operating environment through the 
use of MATLAB® version 5.0 Student Edition. The Performance Module of JANRAD 
was updated with a Graphical User Interface (GUI) and several output plots were 
generated and verified. 

The focus of this thesis was intended to be to add the GUI to the Stability and 
Control and Rotor Dynamics modules of JANRAD. The input screens for the Stability 
and Control Module were developed with the help of William L. Hucke. The intention 
was simply to attach this as the “front end” to the Stability and Control code written by 
Walter M. Wirth, Jr. [Ref. 3], and then do the same for the Rotor Dynamics Module. Due 
to various problems encountered with the existing Stability and Control code, the Rotor 
Dynamics Module did not get updated to the GUI. Instead, several output screens were 
developed for the Stability and Control Module. The aim ge to create output that could 
be easily applied to the Aeronautical Design Standard Handling Qualities EE 
for Military Rotorcraft (ADS-33), the military's accepted standard for helicopter design. 
The intent of the release of ADS-33 was to replace MIL-H-8501, which had been the 


standard since the late 1950's. 


B. ORIGINAL STABILITY AND CONTROL CODE 


The original code for the Stability and Control module written by Walter M. 
Wirth, Jr. [Ref. 3] could only be verified for the hover flight regime (0 - 40 knots). The 
output matrices for the forward flight case were inconsistent with the known values given 


for Prouty's example helicopter [Ref. 9]. 


Wirth's code [Ref. 3] utilized the hover trim condition generated by the 
Performance Module as the starting point for his computations. This process will briefly 
be discussed in a later section. Stability derivatives were determined by using closed form 
solutions when possible and by solving multiple trim solutions about a nominal point to 
solve for unknowns. This method proved effective for the case of the hovering aircraft, 
where perturbations were performed by varying gross weight. However, when the forward 
flight condition was evaluated, new stability derivatives were needed that could not be 
correctly evaluated by simply solving multiple trim solutions about a nominal point. 
These particular derivatives where not used in the hover case and therefore did not effect 
the solution for this regime. The bulk of this thesis was spent determining an acceptable 


method to determine these stability derivatives. 


C. USER'S GUIDE 


A User's Guide is attached as Appendix A and gives an overview of the major 
features and procedures for using JANRAD version 6.0. It is a compilation of several 
thesis students work and therefore is presented in its entirety. It has been updated to 


reflect the changes and improvements to the Stability and Control Module. 


D. JANRAD VERSION 6.0 FILE STRUCTURE AND FLOW CHART 


An updated flow chart which tracks files and Callback operation of JANRAD 
version 6.0 Stability and Control Module is included as Figure 1. The files referenced in 
the flow chart are included as appendices. Asterisked files are files that were written 


during prior versions and were not updated by the author. 


stability control mput 1.m stabiity control input 2.m stability control input fcn.m 


Hover.m Cruise.m 


Tmcalcm * 











unstructure.m 


unstructure stab mput 1m Dmcalc.m * 


= 


Time freq resp.m Time freq resp fcn.m 


unstructure stab input 2m 


Timm GW up 


Tnmm GW down 


Htrgrp.m 


Sc save.m 


sc save fcn.m 
Step plotter.m Imp plotter.m Bode plotter m 


save con.m 


3 


Figure 1. JANRAD Stability and Control Program Architecture 


II. INPUT SCREENS 


A. GRAPHICAL USER INTERFACE 

The original versions of JANRAD where written in MATLAB© PC version 3.5. 
Entries were made to the program on the command line in the workspace. The process 
was slow and cumbersome, and did not allow the user to easily change parameters or 
view entries and outputs. With the development of the GUI, data entry has become easy 
and intuitive. Input parameters can be entered, changed, and saved with the touch of a 
button. 

The Performance module was updated with the GUI by Chris F. Lapacik [Ref. 7] 
and modified by William H. Hucke [Ref. 8]. A detailed explanation of the Guide® 
function in MATLAB® can be found in Lapacik’s thesis [Ref. 7]. This function allows 
for GUI screen to be created using a drag and drop technique. The function writes all of 
the computer code necessary to create the desired screen. The developer needs only to 
attach the necessary functions to the screen code. Also in Lapacik’s thesis [Ref. 7] is a 
detailed discussion of the variable and file naming structures. Every attempt has been 


made to maintain these conventions. 


B. STABILITY AND CONTROL INPUT SCREENS 


The Stability and Control input screens were developed in conjunction with 
William L. Hucke, and served as an invaluable learning tool and “pass down”. During 


this process, the general structure of the JANRAD program was learned and instruction 


was given as to the use of the GUIDE® function in MATLAB®. An explanation of the 
development of these screens can be found in Hucke's thesis [Ref. 8]. 

Once the input screens were created, the variables entered were structured so they 
could be passed to the appropriate M-files for computation. The program was then tied to 
the portion of JANRAD written by Walter M. Wirth [Ref. 3] for the stability derivative 
computation. 

Output screens were created to display the linear matrix state equation A and B 


matrices and a time - frequency analysis screen was created. 


III. HOVER FLIGHT CONDITION 


A. THE EXISTING CODE 


The existing JANRAD Stability and Control Module produced a linear state 
space model of the helicopter. It utilized the trim solution from the Performance module 
as the starting point for its calculations and then varied gross weight to obtain the 
necessary stability derivatives. A detailed explanation of the method used can be found 


in Wirth's thesis [Ref. 3]. 


B. MODIFICATIONS 


The only modifications to this portion of the program were to add the graphical 
user interface to the input screens and create a screen to monitor the progress of the 
program. The input screens were created in conjunction with William Hucke and served 
as an effective means of learning the intricacies of the MATLAB program. Once the 
screens were created the variables were structured and passed to the subroutines created 
by Walter M. Wirth [Ref. 2]. 

A progress screen was created to aid the user in determining what the program 
was doing and also serves to ensure that the program has not "locked up" on a particular 
calculation. This screen is similar to the screen created in the Performance Module. 

Once the stability derivatives have been obtained, the A and B matrices are 
constructed. The matrices obtained in this manner seemed to agree well with that of the 


example helicopter given in Prouty's book. A detailed comparison of the output 


generated by JANRAD and that given by Prouty for his example helicopter is given in a 
later section. Because the output agreed well with known quantities, this method was 


applied to the forward flight regime. [Ref. 9] 


IV. FORWARD FLIGHT CONDITION 


Á. EXISTING CODE 


The forward flight regime was initially modified in exactly the same manner as 
the hover regime. The same input screens were used, but a logical branch was set in the 
program to access the forward flight subroutines if the airspeed entered was above 40 
knots. The stability derivatives were evaluated in the same manner by varying about the 
nominal trim condition. However, the trim condition was perturbed by making small 
variations to the airspeed as opposed to the gross weight, as in the hover case. The A and 


B matrices were again constructed. 


B. PROBLEMS ENCOUNTERED 


When the A and B matrices were compared to known values of the example 
helicopter given by Prouty [Ref. 9], it was determined that the two were inconsistent. 
Therefore an extensive troubleshooting effort was launched. The code was run repeatedly 
to determine if some programming error had been made with the addition of the GUI 
screens. Wirth's thesis [Ref. 3] was used to verify the values obtained in the new hover 


regime, but an example for the forward flight case was not given. 


E IDENTIFING THE SOURCE OF THE ERROR 


The main rotor derivatives and tail rotor derivatives are calculated using the 
formulas provided by Prouty. All of these formulas are functions of the rotor derivatives 


in forward flight obtained by Prouty through charts given in his book. These terms 


involve the partial derivatives of Cy/o, Cy/o, Co/o,a;,, bis with respect to U „Oo, and A”. 
[Ref. 9] 

These charts are not available to JANRAD and the correct values for these partial 
derivatives can not be obtained simply by varying the airspeed about the trim condition. 
Each time the aircraft is perturbed by varying the airspeed, u is directly effected as an 
input to the program. However, the new trim solution produces new values for 0, and A”, 
thereby producing some kind of convoluted values for the derivatives of Cy/o, Cy/o, 
Col Gy ais, Dic: 

A method was devised to vary each of the three parameters (u ,00, and A”) 
separately while holding the other two constant. In this way, the fifteen specific partial 


derivatives could be obtained. 


D. IN SEARCH OF THE SOLUTION 


The first attempt was to find a closed form solution for each of these derivatives. 
A NACA Technical Note written by Kenneth B. Amer and F. B. Gustafson entitled 
"Charts for Estimation of Longitudinal Stability Derivatives for a Helicopter Rotor in 
Forward Flight" [Ref. 10] was found. While some equations were given for the necessary 
stability derivatives, a chart was still needed to determine specific values for several of 
the variables. This was determined to be no better than Prouty's [Ref. 9] method of using 
the charts in his book directly to obtain the necessary values. Thought was given to 


converting these charts to tables and then having the program do a table look up to 


determine the values, but it was determined that this would be far too time consuming 


and too specified to be of any real value. 


E. THE SOLUTION 


Finally it was determined that the appropriate method for obtaining these stability 
derivatives was to vary each parameter independently. While this may seem like an 
obvious choice, it proved to be a complicated one, because the many assumptions that 
had to be made. Many of the values used by the program are not explicit functions of 
each parameter, and therefore a determination had to be made for each variable in the 


program on the effect of changing these parameters independently. 
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V. PROUTY'S CHART METHOD FOR DETERMINING FORWARD FLIGHT 
STABILITY DERIVATIVES [REF. 9] 


A. THE THEORY 
The following rotor derivatives are needed to compute the stability derivatives 
that define the linear state space model of the helicopter (see Prouty's book [Ref. 9] for 


and explanation of each variable): 


Æ lo Xlo Xlo als Als 


NE NIE 

To determine the values for these derivatives, Prouty uses what is known as the 
graphical method, utilizing the Rotor Performance charts given in Chapter III of his book. 
These charts where originally developed by M.C. Cheney at Lockheed. The charts were 
generated using a computer program that used the equations described in Chapter III of 
Prouty's book. The charts, while based on a series of arbitrarily selected rotor 
parameters, are reported to be flexible enough to be used for rotors of various parameters. 
[Ref. 9] 

By entering the charts at the trim values and varying each parameter 


independently, the rotor derivatives can be obtained. The following is a detailed 


description of the process. Figure 2 


2 1s a graphical representation of the chart method for 


determining the stability derivatives as given in Prouty's book. [Ref. 9] 
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Figure 2. Illustration of Rotor Derivative Extraction from Performance Charts [Ref. 9] 
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B. STEP BY STEP DETERMINATION OF ROTOR DERIVATIVES 


The values of the parameters at the trim condition must first be determined. 
Prouty [Ref. 9] gives the following values: 

U =.30 Оу= 1388 90/03 

u is defined as the tip speed ratio, 6, is the trim collective pitch angle and A’ is 
the inflow parameter with respect to the tip path plane. To determine the value for the 
partial derivatives with respect to | use the charts for (40.25 and u=0.35. These values 
correspond to small perturbations around the trim value of u. The charts are plotted 
against Cr/o , so this is used as the intermediate variable. 

Step one is to enter the chart of A’ vs. Cy/o for u=0.25. Find and record the value 
of Cq/6 for the trim values of A” and 0,. Step two is to enter the chart of Co/o vs. Cr/o. 
Find and record the value for C/o for the just determined value of Cq/o and the trim – 
value 09. Do the same for Cy/o, aj, and bis, always using the trim value for 0, and the 
determined value for Cr/o. Repeat this procedure using the u=.35 charts. 

To determine the values for the partial derivatives, simply take the difference 
between the determined values for the variables and divide by the difference of the 


parameters. For example: 


Es En 
I (44 = 035) -—2 (4 = 025 





ou 035-025 


The partial derivatives with respect to 09 and X" can be determined in the same 


manner. Using this method all fifteen of the rotor derivatives can be determined 
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C: PUTTING IT ALL TOGETHER 


Once all of the non-dimensional rotor derivatives have been obtained, the 
formulas given in Prouty's book [Ref. 9] are used to determine the Main Rotor 
Derivatives. These are then combined with the tail rotor, horizontal stabilizer, vertical 
stabilizer, and fuselage derivatives to obtain the Total Forward Flight Derivatives. These 


are then used in the helicopter equations of motion to construct the linear model. 


16 


VI. JANRAD'S METHOD FOR DETERMINING FORWARD FLIGHT MAIN 
ROTOR DERIVATIVES 


A. THE THEORY 


JANRAD’s approach is to perturb each of the parameters, M, O9, Å”, independently 
and compute the values for the variables Cy, Ch, Cg, ais, and bis. This is exactly the same 
method that Prouty [Ref. 9] uses, however, instead of using charts, JANRAD computes 
the values for each variable specifically. A separate subroutine for varying each 
parameter was written due to the differing assumptions that had to be made for each case. 
Each subroutine both increases and decreases its parameter from the trim value and 
computes a value for each variable. A vector for the values of the parameters and a 
vector for each of the variables is created. 

These vectors are passed to a subroutine that creates a first order curve and then 
computes the derivative of the curve. The slope of the curve at the trim value is then 
computed and this is used as the rotor derivative. 

The procedure is simplistic, however many assumptions had to be made as to 
which variables in the trim routine had to be held constant and which had to be allowed to 
vary. The following section discusses the assumptions made and the criteria for various 


variables in the trim routine. 


B. THE COMPUTATION 


The general structure of each subroutine is the same and is modeled after the 


Trim.m subroutines written for the Performance Module. The entire subroutine is 
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written as a loop that is run three times, once for a value for the parameter below the trim 
value, once for the trim value of the parameter and once for a value above. The necessary 
aerodynamic terms are computed, the required lift, tip path plane angle, required thrust, 
coning angle, etc. The Tmcalc.m, Thrcalc.m, and Dmcalc.m subroutines written for the 
performance model are called once which gives the values for thrust, drag and torque of 
the rotor. Cy, Cy, Co, are then computed directly using there respective defining 
equations. Each of these M-files are run only once rather than several times in an 
iterative process as in the trim case for the Performance Module. A detailed description 
of how these M-files are structured can be found in Nicholson’s thesis [Ref. 1]. The 
values for aj, and bj, are computed directly from explicit formulas. The following 


assumptions were made in each subroutine. 


1. Tip speed ratio u 


Stab calc mu.m is the name of the M-file that calculates the variables 
while varying the parameter U. Varying the airspeed by 15% in either direction, 
effectively varies the parameter u. No assumptions have to be made, and therefore the 
subroutine runs very similarly to the trim routine, except that it is only run once and no 


adjustment to the collective pitch is made. 


2. Collective Pitch 609 


Stab calc to.m is the name of the M-file that calculates the variables 


while varying the parameter Oo. @o is varied by one degree in either direction. The 
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calculation for the coning angle is computed as a function of the change in 9, by the 


following equation: 


B= Å -(A0* (2) 
This method for determining the coning angle is necessary because the original 
Trim.m routine varies D as a function of u. If Hu is held constant then B would be held 
constant and erroneous values for the parameters would be obtained. By varying the 


coning angle as a function of collective pitch change allows for the proper determination 


of the variables. 


> Inflow ratio with respect to tip path plane 7” 


Stab calc la.m is the name of the M-file that calculates the variables 
while varying the parameter A”. The inflow ratio was varied by 50% in either direction. 
The tip path plane was held constant. The coning angle was varied according to the 


following equation: 


2 
B=4*0- 70 


B again had to be varied as a function of inflow angle which is a function of A” for the 


same reasons as stated above. 


C. TAIL ROTOR DERIVATIVES 


Due to the small variations in the derivatives for the tail rotor, and it's overall 


contribution to the total stability derivatives JANRAD does not compute tail rotor 
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derivatives in the same manner as the main rotor derivatives. While Prouty [Ref. 9} 
alludes that the chart method can be used to determine the tail rotor derivatives, JANRAD 


simply uses closed formed solutions for these parameters. 


D. FUESELAGE DERIVATIVES 


The fuselage derivatives are hard wired into the program using the charts given 
for the Prouty Example Helicopter in Appendix A of his book. These should be 
acceptable for most normally configured helicopter designs. If however it is determined 
that these values differ greatly from the Prouty curves, then the Cbodygrp.m M-file must 


be modified, to reflect the appropriate values. [Ref. 9] 


E. THE REST OF THE COMPUTATIONS 


A detailed description of the rest of the Stability and Control Module is explained 
in detail in Walter M. Wirth Jr.'s thesis [Ref. 3]. The computations differ only in the 


areas mentioned previously. 


F. THE RESULTS 


Once the stability derivatives are determined, JANRAD uses the same equations 
from Prouty's book to determine the Total Forward Flight Derivatives and to construct 
the linear mode. A detailed analysis of the results of JANRAD as compared to Prouty's 


for his example helicopter are given in a later section. [Ref. 9] 
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VII. OUTPUT 


A. THE LINEAR MODEL SCREEN 
The first screen that appears after the calculations are complete allows the user to 


see the actual A and B matrices and also indicates the vector for the states, and the inputs, 


Figure 3. 





mn 


Figure 3. Linear Model of Helicopter Window 


From this point the user can decide to save his output to a file, change input 


parameters an re-run the calculations, or proceed the time and frequency response screen. 
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The A matrix is an 8 X 8 matrix containing constants that completely describes 
the linear approximations to the equations of motion of the aircraft. The B matrix is a 4 
X 8 matrix that describes the relationship between the input from the pilot controls and 
the input to the modeled system. With this B matrix a collective, cyclic, or directional 
input can be specified to the pilot controls and the appropriate rigging compensation are 


automatically made. 


B. TIME AND FREQUENCY RESPONSE SCREEN 


The Time and Frequency Response screen allows the user to analyze the response 


of the helicopter to specified inputs, Figure 4. 


-JTime and Frequency Response 
e ER Window Hep = 





5 x... 


Figure 4. Time and Frequency Response Window 
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Step or impulse inputs can be simulated in either the collective, cyclic, or 
directional channels and responses of any of the eight states can be observed. Figure 
5 1s an example of one of the output plots generated for the response of role rate to a 


lateral cyclic step input. 


Response of Roll Rate (p) to Lateral Cyclic Step Input 


1.4 







|| EEE E. КИ ФК EN 
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Roll Rate (rad/sec) 


0 0.5 1 1:5 2 2.5 3 3.5 
time (sec) 


Figure 5. Example of Step Response Output Plot 


A frequency analysis can also be obtained by specifying Bode plots. In this 
manner, the Bode plots for each channel can be generated. Figure 6 is an example of a 


Bode plot for the system between roll rate an lateral cyclic input 
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Response of Roll Rate (p) to Lateral Cyclic Input 


Phase (deg); Magnitude (dB) 





SES o 107 107 10 101 10° 
Frequency (rad/sec) 


Figure 6. Example of Bode Plot Output 


A stability analysis can be performed by specifying eigenvalues. This option 
generates and plots the eigenvalues of the A matrix which are the poles of the system. 
The coupled eigenvalues along with the decoupled lateral and longitudinal eigenvalues 
can be viewed in graphical form. Figure 7 is an example of a plot of the coupled 
eigenvalues. If the numerical values are desired, or a more detailed stability analysis is 
needed, the user can load the output file containing the A and B matrices at the command 


line or create a unique M-file to generated specific analyses. 
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Figure 7. Example of Eigenvalue Output Plot 
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VIII. COMPARISON WITH KNOWN HELICOPTER MODELS 


A. PROUTY'S EXAMPLE HELICOPTER IN A HOVER 


Prouty [Ref. 9] gives the characteristic equation of the longitudinal motion for his 
example helicopter in his book. An extensive analysis of the lateral motion of the 
helicopter in this regime is not performed, therefore the comparison for the hover mode 
will be done only in the longitudinal direction. The following are the characteristic 


equations for the example helicopter in a hover. 


Prouty: s* +1.02s* +0.21s* +0.12s+.034=0 
JANRAD: s*+1.1135* +0.22795? +0.13835+.0374=0 


While the coefficients of the polynomial to not match exactly they are very close. 
A more intuitive method for comparing the two systems 1s to observe the eigenvalues. 
Figure 8 plots the roots of the above equations, which are the eigenvalues of each system 
as given below: 
Prouty: s12 - 0.28, so= .076+0.360, s3 = 0.076 - 0.3601, s4= -0.89 


JANRAD: sız -0.2704, so= .0713+ 0.36791, s3 = 0.0713 - 0.36791, sg= -0.9851 
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Figure 8. Eigenvalues of Longitudinal Equations in a Hover 


A quick glance at the plot will tell you how well JANRAD is performing. The 
eigenvalues for the two systems are very close. The dominant poles (A and B) in each 


case lie very close to each other, providing similar response in the time domain. 


PROUTY'S EXAMPLE HELICOPTER IN FORWARD FLIGHT 


The analysis for the forward flight regime is broken into the longitudinal and 
lateral cases. While a coupled response analysis can be done, decoupling the equations 
will emphasize the similarities and differences between Prouty’s [Ref. 9] numbers and 


JANRAD’s and will also allow for easier determination of the effected channels. 
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results from the forward flight mode do not compare as well as for the hover regime. 
This is due to the difficulty of the determination of the rotor derivatives. However, as 
this program is to be used only for preliminary design, it has been determined that the 


numbers correspond well for this purpose. 


ik Lateral Motion 


The following are the characteristic equations for the lateral motion of the 


example helicopter at 115 knots. 


Prouty: s* +8.460s* —17.68s* +45.54s+ 2.2548 =0 
JANRAD: så +9.341153 +20.63915? +57.74015+1.6851=0 


Figure 9 plots the roots of the above equations, which are the eigenvalues 
of each system as given below: 
Prouty: Si= -6.602, so= - 0.78414+2.43171, s3 = - 0.7841-2.43171, sg= - 0.05058 


JANRAD: sj= - 7.6237, s2 - 0.8441+ 2.60441, sz = - 0.8441-2.6044i, 54 = -0.0295 
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Eigenvalues of Lateral Equations for the Prouty Example Helicopter at 115 knots 
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Figure 9. Eigenvalues for Lateral Motion in Forward Flight 


This plot will again tell you how well JANRAD is performing. The 
dominant poles (A and B) in each case lie very close to each other, providing similar 
response in the time domain. Figure 10 plots a time history for the response of yaw rate 
to an impulse pedal input using the uncoupled lateral equations. It is evident that the two 


systems have very similar time histories. 


30 


Time History for Response of Yaw Rate to Impulse Pedal Input (uncoupled) 
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Figure 10. Time History Comparison 


2. Longitudinal Motion 


The following are the characteristic equations for the longitudinal motion 


of the example helicopter at 115 knots: 


Prouty: s*--1.545s? —2.61s? -- 0.02885 -- 0.0949 20 
JANRAD: s* «1.86375? —4.7614s? -- 0.11085 -- 0.08500 2 0 


Figure 11 plots the roots of the above equations, which are the 
eigenvalues of each system as given below: 


Prouty: s12 -2.907, s2 -0.1710, s52 0.1828, s4= 1.085 


SÅ 


JANRAD: 51= - 3.2958, S2= -0.1418, $5 2 0.1255, s4- 1.4484 
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Figure 11. Eigenvalues for Longitudinal Motion in Forward Flight 
C. HANDLING QUALITIES 
The charts in Appendix B show how the handling qualities of the Prouty example 
helicopter [Ref. 9] using the model given in his book compare to that computed using 


JANRAD. It graphically depicts the validity of the JANRAD program. 
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IX. CONCLUSIONS AND RECOMENDATIONS 


A. CONCLUSIONS 


The ability to produce a linear model of a helicopter for stability and control 
analysis is an invaluable tool in the design process. With the development of the 
JANRAD Stability and Control Module, the generation of this linear model has become 
as easy as entering a few parameters and pressing a few buttons. The user can modify any 
one of the various inputs and re-compute the model in a matter of minutes. In this way, 
many different configurations can be obtained and the one best suited for the particular 
application can be selected. 

It has been shown that the solutions produced by JANRAD match closely with 
those presented by Prouty in his book [Ref. 9]. While the techniques used to compute the 
stability derivatives are very similar, the method for computing the terms comprising 
these values differs greatly. This fact only lends to further trust that the values produced 
by both Prouty [Ref. 9] and JANRAD are correct. 

The output screens created enable the user to quickly and easily evaluate the 
response of his design. Again, changes can quickly be made and the analysis repeated to 
ensure the best possible design. | 

With the evolution of the Stability and Control Module of JANRAD the 
helicopter designer can concentrate on design rather that spending time devising a means 


of analysis. 
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B. RECOMMENDATIONS 


Due to the time limitations and the necessity to redesign the method for 
computation of the stability derivatives the Rotor Dynamics Module of JANRAD was not 
developed. The development of this module and the addition of it to JANRAD would 
greatly enhance the design process. It can easily be added to JANRAD from the Options 
screen. 

While the Performance module originally was designed for fan in tail and 
NOTAR capabilities, somewhere in the design process this function has been abandoned. 
Not only does the Stability and Control module not support it, but the Performance 
Module has also lost this capability. A warning screen has been created to prevent the 
user from attempting this type of design. 

Finally, due to the lack of another valid linear model of a different helicopter, only 
Prouty's example helicopter was used to verify the output. In order to ensure that the 
output is valid for a variety of configurations, the program should be compared with other 


known linear models. 
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APPENDIX A. USER'S GUIDE 


The JANRAD version 6.0 Users Guide is written as a brief introduction to the 
Joint Army/Navy Rotorcraft Analysis and Design computer program. It is intended to 
explain the basic features and operation of the program and assumes a basic knowledge of 
helicopter mechanics and the use of the MATLAB? programming language by The 


MathWorks? Inc. 


A. SYSTEM REQUIRMENTS 


JANRAD version 6.0 requires MATLAB? version 5.0 or MATLAB Student 
Edition version 5.0 or higher. It will not run on any previous versions. JANRAD version 
6.0 will fit on a single 1.44 MB floppy disk and will need that much memory available for 


installation. JANRAD requires only the hardware to support MATLAB? 6. 
B. INSTALLATION 


The recommended installation of JANRAD version 6.0 is accomplished by first 
creating a subdirectory of MATLAB called JANRAD. The entire contents of the 
JANRAD version 6.0 floppy disk should be copied into this directory. Include all M-files 
and .mat files. JANRAD version 6.0 will not run without all of the .mat files. 

It is recommended that this new subdirectory be added to the MATLAB 5 search 
path. This procedure will eliminate the need to change the working directory from the 


command line each time JANRAD version 6.0 is run and allows you to work from a 
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floppy disk if desired. Adding the subdirectory to the search path is accomplished by 
selecting File, Set Path... from the File menu. Change the current directory to the new 
Janrad98 subdirectory by using the Browse button. Then press the Add to Path push 
button. You will then be given the option to save the new path or just use the new path 
for the active session. It is recommended to save this path. Figure A.1 shows the 


MATLAB? Path window. 
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Figure A. 1. MATLAB 5 Path Window 


a STARTING JANRAD VERSION 6.0 


Typing janrad98 (lowercase, one word) at the command line prompt of a current 
MATLAB session starts JANRAD version 6.0. This action will launch the JANRAD 


version 6.0 welcome window shown in Figure A.2. 
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Figure A. 2. JANRAD version 6.0 o9 Up Window 

D. PERFORMANCE MODULE 

As an example, the use of this program will be demonstrated by selecting a 
previously saved input data file and changing the weight, airspeed and pressure altitude. 
User defined blade elements and blade twist will be entered. Tail rotor parameters will be 
verified but not changed. The input and output files will be saved and printed. After the 
performance analysis is complete, we will then iterate on airspeed from 80 to 100 knots in 
increments of 5 knots. 

First, from Figure A.2, select the Edit/Run Existing File radio button. It is usually 


easier to edit an existing file because Create New File will not give you the chance to 
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change the working directory if desired. Once the selection has been made, press the 


Continue »» button. 
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Figure A. 3. Selecting a File to Edit 


The next figure window to appear is shown in Figure A.3. This window allows 
you to change the working directory and select an input data file. To change the 
directory, type or edit the desired path in the edit box. All of the .mat files listed in the 
working directory are displayed in the list box. Input data files are saved as filename.mat. 
A note of caution here, each GUI window also has an associated guifilename.mat file. 


The user should name input/output data files using helicopter aircraft designations such as 
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UH, 60A, h 99 orh designl to differentiate from JANRAD version 6.0 GUI files. Next, 
select an input file to edit by clicking on the file name. For this example, we will edit the 
UH, 60A.mat file. Then press Continue >>. 

The Performance Input window will be displayed as in Figure A.4. The input data 
will be displayed within the appropriate edit boxes. Any or all of the parameters can be 
changed at this point without altering the original data file. You will have the opportunity 


to save the new data if you chose after the analysis has been completed. 
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Figure A. 4. Performance Input Parameters 


The airspeed, weight and pressure altitude can be edited by highlighting and 


typing 100, 17,000 and 2,000 in the respective edit boxes. Pressing the enter key is not 
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necessary to enter the new value. Using the Tab key or clicking on another edit box or 
control will enter any changes. If the user wishes to mesh airfoils, click the Blade Airfoil 
Type scroll bar, and select Airfoil Mesh. The Begin Mesh at (r/R) box will be enabled 
and a value may be entered. At this point, select both the non linear blade twist and 
uneven blade element spacing blocks. Note that the blade twist and number of blade 
element boxes are disabled. The Print Screen button will print a draft copy of the GUI 
window with the displayed values if desired. It however, will not record the file name for 
which the values are stored. Now press the Continue >> button. 

From the Performance Input window, JANRAD version 6.0 will call the 
Compound Helicopter and Tail Rotor Parameters window, Figure A.5. In our example 
we are dealing with a conventional helicopter, therefore no wing or auxiliary thrust is 
present. We do, however, need to verify the tail rotor parameters which have been either 
loaded from the data file or calculated. The parameters will be entered in the appropriate 


tail rotor type. Press OK when ready to continue. 
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Figure A. 5. Enter Compound Helicopter and Tail Rotor Parameters 


With either non-linear blade twist or uneven blade element spacing selected, 


JANRAD version 6.0 will next go to the Blade Element page, shown in Figure A.6. 
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Figure A. 6. Enter Uneven Blade Elements & Non linear Blade Twist 


The grip ratio contained in the loaded data file will automatically be displayed 
along with the effective blade radius. The user can enter up to twenty blade elements and 
the corresponding twists. IMPORTANT! Ensure dimensions are entered to the left edge 
of the blade element from the blade root. JANRAD version 6.0 will automatically 
calculate the values at the center of the blade elements. Also, do not enter any value 
greater than the effective blade radius or an error message will appear. After entering the 


desired values press Continue. 
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Next, JANRAD version 6.0 will call the Iteration Method window as shown in 


Figure A.7. 
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Figure A. 7. Iteration Method / Analysis Win 
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JANRAD version 6.0 will call its computational routines from this window. By 
choosing No Iteration and Analyze, JANRAD version 6.0 will run the parameters selected 
from the previous window. The Analyze pushbutton initiates the computational routines. 
All controls on the GUI will be disabled except the Interrupt pushbutton. The Analysis 
Status Box will display the performance routine status, clock, iteration number, and 


iteration parameter value as JANRAD trims the rotor and adjusts the collective and cyclic 
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mathematically. The Interrupt button will halt the routine and enable the Resume control 
and JANRAD Options menu on the GUI. This will allow the user to change parameters, 
quit or return to beginning. The Resume button will continue with the performance 
routine where it originally interrupted. It is worth noting that the Interrupt button will not 
always respond immediately. However, once MATLAB finishes its current line 


evaluation, the calculation will pause. 


The Status Box will inform the user when calculations are complete. The 
Performance Output window will be displayed automatically. The Performance Output 
window shown in Figure A.8 displays the performance results. These results can be 
saved and the screen printed from this window. However, it is recommended to print the 
saved input and output files through the next window. By pressing the Options >> push 
button, the saved input and output files can be printed simultaneously and in a more 
usable format. The input/output files can be saved after activating the checkboxes, 


typing a file name and pressing the Save or the Options >> push buttons. 


- 


«i Performance Output 
v 


"ure 





ALNG STAR ów TILER GES 


Figure A. 8. Perfo 


rmance Output Window 


The Options window in Figure A.9 provides the capability to print the latest files, 
go to create plots screens, and eventually, select additional analysis routines. At this time 
however, the Stability and Control and Rotor Dynamics routines have not been 
completed. If selected, you will be reminded of this limitation. 

From here, we will go back to calculate performance parameters by varying 
airspeed. This is done by pressing the Change Iteration Method radio button and the 
Continue 55 push button. This will go back to Figure A.7. To vary airspeed, press the 


Airspeed radio button and then Analyze. 
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Figure A. 9. Options Window. 


Figure A.10 shows the Iteration Parameters window. For example, by typing 80, 
100 and 5 in the appropriate edit boxes and selecting Analyze, the performance routine 
will calculate various performance results with respect to airspeed varying from 80 to 100 
knots. Later, the user will be able to create plots of many of these output parameters. 
Note: the Aspect Ratio edit box and HIGE check box are only enabled when Altitude 


Iteration or Wing Span Area is selected. 
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Figure A. 10. Iterations Parameter Window. 


Figure A.11 shows the Create Plots screen for the Airspeed iteration method. Any 
or all of the plots may be selected. The plots are created and minimized as JANRAD 
automatically recalls the Options window, Figure A.9. Each iteration method has its own 
create plots screen. Some plots require additional user input prior to creating them. 

Figure A.12 shows an example airspeed iteration subplot. These plots are 


primarily used to examine trade off studies during the design process. 
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Figure A. 11. Example Iteration Method Create Plot Window 


The M-file create plots.m contains the code for all of the iteration method create 
plot screens. If any additional plots are desired, changes can be made to this file. 
However, the plots should be substituted for those plots already existing, and the existing 
code should be commented out, not removed. Adding plots requires changes to multiple 
files for proper operation and should not normally be attempted. Always document 


changes made to the code for future users. 
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HINTS FOR JANRAD VERSION 6.0 PERFORMANCE MODULE 


E. 


The following paragraphs list some recommendations for the most efficient use 


of JANRAD VERSION 6.0. They are a guide based on observation, experience and 


Any other recommendations should be addressed to the 


knowledge of the code. 


Helicopter Design Instructor at the Naval Postgraduate School for implementation into 


the next version of JANRAD version 6.0. 
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JANRAD version 6.0 was designed for robust operations. However, because this 
is the first version to utilize a Graphical User Interface, not all cases of user inputs have 
been exercised. If the program appears not to be working properly, quit JANRAD using 
the options menu available on all but the first window. This action will quit JANRAD, 
close all MATLAB figure windows and clear the base workspace. Restart JANRAD by 


typing janrad98 at the command line. 


F. STABILITY AND CONTROL MODULE 


In order to run the stability and control portion of JANRAD the Performance 
Module must me run first. WARNING: The analysis must be done in the No 
Iteration mode in order to ensure proper calculation. 

Figure A.13 and A.14 show the first screens to appear if the Stability and Control 
box is clicked on the Options Screen, Figure A.9. The current version JANRAD is not 
configured for NOTAR analysis, therefore zeros should be entered for values in that 
section. If a compound helicopter is being designed then the wing parameters are to be 
entered, if not then enter zeros for the wing values. 

Rigging values can be difficult to evaluate. If they are not know then enter a value 
of 1.0 for these values. This will not effect the A matrix, however the B matrix will be 
effected. Entering a value of 1.0 will result in a one to one correlation of input from the 


controls to the input to the system. 
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Figure A. 13. Stability and Control Parameter Page 1. 


All of the required dimensions are listed in the figure and page numbers for 
Prouty’s [Ref. 9] are given. 

After all the parameters have been entered and the Continue >> button is pushed, 
the next screen is Stability and Control Status, Figure A.15. This screen allows the user 
to see the calculations in progress. It also allows the user to know that the calculations 


are still being made. If the run elapsed time has stopped changing then there is probably a 
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NA A. 14. AE and Control Parameters Page 2. 


hang up in the program and the user should start over. 

After the calculations are completed the linear model of the helicopter is 
displayed, Figure A.16. This screen also shows the order of the states and the inputs. 
From this screen the user has three options. Pressing the Save to File button brings up a 
screen prompting for a file name in which to save the input, and output values. The input 
values for both the Performance Module and the Stability and Control Module are saved 


to a single file. The output file will contain only the A and B matrices that comprise the 


linear model. The output from the Performance Module can still be accessed from the 


file that was saved at the end of that module 
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Figure A. 15. Stability and Control Status. 
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Figure A. 16. Linear Model of Helicopter Window 


Pressing the Modify inputs and re-trim will send the user back to the input page 
for the Performance Module. If any inputs are changed then a new trim solution must be 
obtained before the Stability and Control Module can be run. The program is set up SO 
that even if no inputs are changed in the Performance Module, the trim solution must still 
be re-computed. This was done to simplify the program and to ensure that a correct 


solution for the Stability and Control Module is obtained. 
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If the Coupled Response button is pressed, the screen shown in Figure A.17 will 
appear. This window will allow the user to perform various time and frequency analyses. 
The purpose of this screen is to give the user a idea of the general handling qualities of 
his design. If an extensive analysis is desired then the user should create his own 
MATLAB program and load the values for the A and B matrices save in the previous 
screen. 

The user must select the desired input channel from the four choices in the left 


upper corner of the screen. Only one input can be selected at time. Once an input is 


55 


selected, the other three choices will be shaded and the user will not be able to select 
these until his previous selection had been deleted. 

Next the user must select the response channel. One or all of the channels can be 
selected. The user is warned that selecting all the channels can cause a significant time 
delay depending on the speed of the hardware in use. 

Finally, the user must select the type of analysis desired from the menu in the 
lower left hand corner of the screen. The user must then press the Continue >> button 


and the desired plots will be displayed. 
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APPENDIX B. HANDLING QUALITIES 


Vertical Rate Response to Collective(3.4.3) 
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Pitch Angle to Longitudinal Cyclic (3.4.3) 
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Figure B. 1. Flight Path Control 


Response (rad/sec) 
Response (rad/sec) 





Response (rad/sec) 


Response (rad/sec) 





Time (sec) Time (sec) 


Figure B. 2. Inter Axis Coupling 
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Figure B. 3. 
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Attitude Quickness and Large amplitude Heading Changes 


Dutch Roll (3.4.8.1) 
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Figure B. 4. Lateral Directional Oscillations 
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Spiral Stability (3.4.8.2) 
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Figure B. 5. Spiral Stability 
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APPENDIX C. VARIABLE LIST 


Computational Variables 


a 
A 

Ab 

Abt 
Adisk 
Afh 
afoil 
Afv 
Ah 

ah 

Al 
alph 
alpha 
alphas 
alphaT 
alploh 
alplov 
alplow 
alpv 
alpw 
als 
altpp 
ao 

colt 


bvert 
bw 
bwing 

a 

cblade 
CD 
“bhoriz 
cdoh 
EnDohoriz 
CDovert 


lift curve slope of rotor system airfoil 
rotor disk area 

area of blades 

area of tail rotor blades 

area of rotor disk 

fuselage equivalent flat plate drag area 
rotor system airfoil type (HH02/VR12) 
vert. projected area (fuselage area under disk) 
area of the horizontal stab 

lift curve slope of the horizontal stab 
lateral cyclic pitch 

angle of attack of horizontal stab 

angle of attack, rotor blade radial segment 
angle of attack WRT shaft axis 

rotor tip path plane angle 

alpha zero lift of the horizontal stab 
alpha zero lift of the vertical stab 
alpha zero lift of the wing 

angle of attack of vertical stab 

angle of attack of wing 

longitudinal flapping 

mean alpha TPP 

main rotor coning angle 

tail rotor coning angle 

projected area of fuselage under rotor 
disc area of the tail rotor 

tail rotor blade lift curve slope 

area of the vertical stab 

lift curve slope of the vertical stab 
area of the wing 

lift curve slope of wing 

number of rotor blades 

tip loss parameter 

trim sideslip angle 

rotor coning angle 

geometric angle, rotor blade radial segment 
spari of the horizontal stab 

span, horizontal tail 

Iongi cudinal cycluesbui teh 

lateral flapping 

semispan of the vertical stab 

span, vertical tail 

span of the ving 

span, ving 

main rotor chord 

chord, rotor biade 

drag coefficient, rotor blade radial segment 
drag coefficient, horizontal tail 

Cdo of the horizontal stab 

profile drag coefficient, horizontal tail 
profile drag coefficient, vertical tail 
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cdow 
CDowing 
CDvert 
CDwing 
CH 

en 

CH sig 
Chsig 

Cis 
CEhoriz 
CLvert 
clvertmax 
CLwing 
cmun 
CON_b 
CON cdo 
Co it 
CON omega 
CON R 

CE 
Epipitek 
epi ren 
cpiyaw 
cpp)ctch 
eproli 
cpyav 

CQ 

cq 

COS Ia 
cqsig 

(CHE 

GE 

CIT Sig 
cer 
CU 
etsigt 
ctw 

dD 

ddD 

ddDM 

ddM 

dar 
deldv 
delih 
deliv 
deliw 
delM 
delta3 
delvmax 
desdmdq 
desdndr 
desdrdp 
detafdalpfh 
detafdalpfw 
detafdbeta 
Dftotal 
Dfuse 


Cdo of the wing 

profile drag coefficient, wing 

drag coefficient, vertical tail 

drag coefficient, wing 

rotor H force coefficient 

coefficient 

CH/solidity 

Ch/sigma 

lift coefficient, rotor blade radial segment 
lift coefficient horizontal tail 

lift coefficient, vertical tail 

maximum cl of the vertical stab with full rudder 
lift coefficient, wing 

design Cmu for NOTAR boom in hover (.3 .6) 
Conventional tail rotor # of blades 
Conventional tail rotor cd0 

Conventional tail rotor moment arm 
Conventional tail rotor speed 

Conventional tail rotor radius 

tail rotor chord 

Control power/inch pitch 

control power/inch Pitch 

Control power/inch Pitch 

Control power pitch 

Control 

Control power yaw 

rotor torque coefficient 

coefficient of torque 

CQ/solidity 

Cq/sigma 

rotor thrust coefficient 

coefficient of thrust 

CT/soledity 

wing root chord 

Ct/sigma 

ct/sigma of the tail rotor 

wing tip chord 

differential drag, rotor blade radial segment 
differential drag, rotor blade tip 
differential drag moment, rotor blade tip 
differential thrust moment, rotor blade tip 
differential thrust, rotor blade tip 
biplane effect mutual inter. tail rotor and vert.stab 
span efficiency factor of the horizontal stab 
span efficiency factor Of the verlical stab 
span efficiency factor of the wing 

change in total thrust moment 

tail rotor delta 3 angle 

maximum rudder deflection 

designed pitcb damping (dM/dq) 

designed yaw damping (dN/dr) 

design, droll damping (dR]dp) 

fuselage downwash ratio for the horizontal stab 
fuselage downwash ratio) for the wing 
fuselage sideslip ratio (= depsilondalpha) 
resultant of fuselage drag and aux thrust 
total drag generated by non rotor bodies 
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Dhoriz 
Dian 
DL 

dM 
DMpsi 
ar 
DAGOK 
dthetadM 
Dvert 
Dwing 
e 
ewing 
filename 
filename3 
FM 

g . 
grıp 
GW 

hh 

hhd 
hm 
hmd 
Hrotor 
hslot 
ht 

htd 
REN 
hend 
hv 

hvd 

hw 

hwd 

ә 

15 

Ibt 

TE 

Th 

SE 
DENA 
iw 

IE 
IXZ 
Iyy 
TZZ 
lamdaT 
lamp 
Lftotal 
Ju 

lhd 
shor iz 
lm 

lmd 
lockno 
Teeknot 
12 

Tea 
Jen 


drag, horizontal tail 

NOTAR boom diameter 

disk loading 

diff. thrust moment, rotor blade radial seg 
total blade drag moment at specific azimuth 
rotor blade radial segment width 
differential thrust, rotor blade radial segment 
change in cyc pitch with change in thrust moment 
drag, vertical tail 

drag, wing 

effective hinge offset 

wing efficiency factor 

name of input file 

name of file used in plot routines 

figure of merit 

acceleration due to gravity 

length of inner non aerodynamic portion of blade 
aircraft gross weight 

horizontal stab vertical offset 

height from waterline to horizontal tail 
main rotor vertical offset 

height from waterline to main rotor hub 
rotor H force 

total of slot heights for NOTAR boom 

tail rotor vertical offset 

height from waterline to tail rotor hub 
NOTAR thruster vertical offset 

height from waterline to NOTAR 

vertical stab vertical offset 

height from waterline to vertical fin 

wing vertical offset 

height from waterline to wing 

shaft incidence main rotor 

blade flapping inertia 

tail rotor blade flapping moment of inertia 
IZZ 

angle of incidence of horizontal stab 

WI rotor longitudinal offset 

fuselage station of NOTAR boom 

angle of incidence of wing 

mass moment of inertia about x axis 

mass moment of inertia about xz plane 

mass moment of inertia about y axis 

mass moment of inertia about z axis 

forward flight induced velocity parameter 
lambda’ inflow ratio WRT TPP 

total lift generated by non rotor bodies 
horizontal stab longitudinal offset 
fuselage station of horizontal tail 

lift, horizontal Cl 

main rotor longitudinal offset 

fuselage station of main rotor hub 

main rotor lock number 

tail rotor lock number 

tail rotor longitudinal offset 

fuselage station of tail rotor hub 

NOTAR thruster longitudinal offset 
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TEEDA 
ly 

lvd 
Lvert 
lw 

lwd 
Lwing 
Mic 
Mis 
Machtip 
maxr 
mblade 
Mpsi 
mu 

mu 

mut 

n 

naz 
nbe 

nt 

ohm 
ohmt 
omega 
PA 

phi 
phin 
phitip 
pho 
povet 
Protor 
PEBItEN 
prroll 
pryaw 
psi 

q 

q 

qhq 
Orotor 
qvin 
ava 

r 

R 

R 

Rbar 
RbarT 
Reff 
rho 
rho 

221 

RE 
Shoriz 
sidearm 
sigma 
sigmat 
solidity 
Svert 
Swing 


fuselage station of NOTAR thruster 
vertical stab longitudinal offset 
fuselage station of vertical tail 

lift, vertical tail 

wing longitudinal offset 

fuselage station of wing 

lift, ving 

first harmonic (cosine) thrust moment coef. 
first harmonic (sine) thrust moment coefficient 
Mach number at rotor blade tip 

maximum rudder deflection 

mass of rotor blade 

total blade thrust moment at specific azimuth 
advance ratio 

advance ratio 

tail rotor advance ratio 

a counter in CTPLOTS.M 

number of azimuth sectors 

number of blade elements 

number of tail rotor blades 

omega 

tail rotor omega 

rotor rotational velocity 

pressure altitude 

inflow angle, rotor blade radial segment 
NOTAR thruster sleeve rotation angle 
inflow angle, rotor blade tip 

roll trim attitude (euler angle) 

roll 

power required by rotor 

Pilot rating (GM/dq) śliwy) 

Pilot rating (dR/dp)/Iy x) 

Pilot rating (dN/dr)/Izz) 

azimuth angle 

dynamic pressure 

dynamic pressure, 1/2 rho V'2 

horizontal tail dynamic press ratio (qh/q) 
rotor torque 

dynamic press due to downwash at the NOTAR slots 
vertical tail dynamic press ratio (qv/q) 
radius, rotor blade radial segment 

rotor blade radius 

blade radius 

Reff e 

rT*Rbar 

effective rotor blade radius (tip loss) 
ambient air density 

air density 

location of resultant thrust vector 

tail rotor blade radius 

area, horizontal tail 

maximum pe" travel or twist grip deflection 
solidity 

tail rotor #solidity 

solidity 

area, vertical tail 

area, wing 
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swirl 

Jk 

ES 
tailrot 
Taux 
temp 
theta 
thetalc 
thetals 
thetal 
thetalt 
thetao 
thetao 
thetat 
tho 
Tpsi 
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RE 

EV 
twist 
uo 

Up 
Uptip 
Ut 
Uetip 

V 

NA 

vals la 
vals mu 
vals to 
vbls la 
vbls mu 
vbls to 


mean swirl angle of main rotor meas at the NOTAR slots 
rotor EREUSE 

thrust 

value corresponding to type of tail rotor 
auxiliary thrust 

ambient air temperature 

cyelie pitch 

first harmonic (Cosine) of cyclic pitch 
first iarmonie (sine) ofcyclic pitch 
main rotor blade twist 

tail rotor blade twist 

collective pitch at .7 r/R 

blade pitch at root 

induced angle at the tip 

trim pitch attitude (euler angle) 

total blade thrust at specific azimuth angle 
rotor blade taper ratio 

thrust of tbe tail rotor 

vertical stab longitudinal offset 
geometric rotor blade twist 

x initial velocity 

vertical component of velocity 

vertical component of velocity at tip 
horizontal component of velocity 
horizontal component of velocity at tip 
forward velocity 

induced flow velocity at a hover 

vector of als values for lambda variation 
vector of als values for mu variation 
vector of als values for theta0 variation 
vector of bls values for lambda variation 
vector of bls values for mu variation 
vector of bls values for theata0 variation 


vchsig_la 
vchsig_mu 
vchsig_to 
vcqsig la 
vcqsig mu 
vcasig to 
vctsig la 
vctsig mu 
vetsig to 
SERVI 

vhvl 

vi 

Vinf 

VIf 

vo 

MEID 
vvi_la 
vvi_mu 
"wi to 
vwv 1 
wblade 

WO 

KET 
xcouple 


vector 
vector 
vector 
vector 
vector 
vector 
vector 
vector 
vector 


GE 
SE 
of 
of 
of 
ot 
SE 
Gr 
Df 


CH/sigma 
CH/sigma 
CH/sigma 
CQ/sigma 
CQ/sigma 
CQ/sigma 
CT/sigma 
CT/sigma 
CT/sigma 


values 
values 
values 
values 
values 
values 
values 
values 
values 


for 
for 
for 
foas 
fom 
for 
for 
for 
Lom 


lambda variation 
mu variation 
theta0 variation 
lamdda variation 
mu variation 
theta0 variation 
lambda variation 
mu variation 
theta0 variation 


rotor downwash ratio for the fuselage 

rotor downwash ratio for horizontal stab 
induced velocity 
forward airspeed 
approximation for vi at forward airspeed 
y initial velocity 


tip speed 


vector of inflow velocity for lambda variation 
vector of inflow velocity for mu variation 

vector of inflow velocity for theat0 variation 
rotor downwash ratio for wing 
weight of rotor blade 
z initial velocity 
height from waterline to cg 
designed cross coupling 
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УСҸ 
уһа 
ym 
ymd 
ytd 
Ytmaxn 
ytnd 
Yv 
yvd 
ywd 
Zed 
Zh 
ZW 


Cruise Basic Main 


dalda 

daldb 
daldlamp 
daldmu 
daldp 
daldq 
daldtheto 
dbetdydot 
dblda 

dbldb 
dbldlamp 
dbldmu 
dbldp 

dbldq 
dbldtheto 
dchsigda 
dchsigdb 
dchsigdlamp 
dchsigdmu 
dchsigdtheto 
dctsigdlamp 
dctsigdmu 
dctsigdtheto 
dcqsigdlamp 
dcqsigdmu 
dcqsigdtheto 
dcysigdb 
dlampdxdot 
dlampdydot 
dlampdzdot 
dmdalsm 
dmudxdot 
drdblsm 


Cruise Main Rotor 


dmdalm 
dmdblm 
dmdpm 
dmdqm 
dmdthetom 


length from buttline to cg 

length from buttline to horizontal tail 
main rotor lateral offset 

length from buttline to rnain rotor hub 
length from buttline to tail rotor hub 
maximum Y force from NOTAR thruster 
length from buttline to NOTAR 

side force of vertical stab 

length from buttline to verticle tail 
length from buttline to wing 

fuselage station of cg 

vertical force of horizontal stab 
vertical force of win 


Rotor Derivatives 


dals/dAl 

dals/dBI 
dals/d(lambda') 
dals/dmu 

dals/dp 

dals/dq d 
dals/dtheta(o) 
d(Beta)/dYdot 
dbls/dAl 

dbls/dBI 
dbls/d(lambda”) 
dbls/dmu 

dbls/dp 

dblsldq 

dblsldtheta(o) 
d(Ch/sigma)/dals 
d(ch/sigma)ldbls 
d(Ch/sigma)/d(lambda') 
d(Ch/sigma)ldmu 
d(Ch/sigma)/dtheta(o) 
d(Ct/sigma) /d(lambda’ ) 
d(Ct/sigma)/drnu 
d(Ct/sigma)/dtheta(o) 
d(Cq/sigma)/d(lambda') 
d(Cq/sigma) /dmu 
d(Cq/sigma) /dtheta(o) 
d(Cylsigma) /dbls 
dlambda” ) /dXdot 
d(lambda')/dYdot 
d(lambda’ ) /dZdot 
dM/dals main rotor stiffness 
dmu /dxdot 

dR/dBls main rotor stiffness 


Derivatives 


dM/dA1 
dM/dB1 
dM/dp 
dM/dq 
dM/dtheta (O) 
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dmdxdotm 
dmdydotm 
dmdzdotm 
dndrm 
dndtheom 
dndxdotm 
dndzdotm 
drdalm 
drdblm 
drdpm 
drdqm 
drdthetom 
drdxdotm 
drdydotm 
drzdotm 
dxdalm 
dxdbim 
dxdpm 
dxdqm 
dxdthetom 
dxdxdotm 
dxdydotm 
ceed zdot 
dydalm 
dydblm 
dydpm 
dydqm 
dydtbetom 
dydxdotm 
dydydotm 
dydzdotm 
dzdblm 
azarm 
dzdthetom 
dzdxdotm 
dzdzdotm 


dM/dXdot 
dM/dYdot 
dM/dZzdot 
dN/dr 


dN/dtheta (O) 


dN/dXdot 
dN/dZzdot 
ARIGAL 
dR/dBi 
dR/dp 
dR/dq 


dR/dtheta (O) 


dR/dXdot 
dR/dYdot 
dR/dZdot 
dX/dA1 
dXJdB1 
dX/dp 
dX/dq 


dX/dthetaO 


dX/dXdot 
dX/dYdot 
dx/dzdot 
LALA 
dY/dB1 
dY/dp 
av ag 


dY/dtheta (O) 


dY/dXdot 
dr drdot 
dr/azace 
dz/dbls 
az/år 


dz/dtheta (O) 


dz/dxdot 
dz/dzde)t 


Tail Rotor Derivatives 


dctsigdlampt d(Ct/sigma)/d(lambda') 
dctsigdmut d(Ct/sigma)/d(mu) 
dctsigdtbetot d(Ct/sigma)/d(thetaO) 
dlampdydott d(lambda')/dYdot 
dydxdott dY/dXdot 

dydydott dv/dYdot 

dydpt dY/dp 

dudrt dv GE 

dydthetot dY/d(thetaO) 

Brdxdott dR/dXdot 

drdydott dR/dYdot 

crdpt dR/dp 

ardrt aR/dr 

drdthetot dR/dthetaO) 

dndxdott dN/dXdot 

dndydotit dN/dYdot 
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Vertical Stabilizer Derivatives 


Dalpvdxdotn 
Dalpvdydotn, 
dbetadydotv 
detatvdxdotv 
detatvdydotv 
detafdydotv 
Jradxdotv 
drdydotv 
dxdxdotv 
dxdydotv 
dydxdotv 
dydydotv 
dydpv 

dydrv 


d(alpha vert) /dXdot 
d(aipba vert) /dydot 
d(beta) /dYdot 

dieta tail rotor) /dxdot 
d(eta tail rotor) /dYdot 
d(eta fuselage) /dYdot 
dR/dXdot 

dR/dYdot 

dX/dXdot 

dx/dvdot 

dY/dXdot 

dy dydot 

dY/dp 

dyydr 


Horizontal Stabilizer Derivatives 


dalphdxdoth 


dalphdzdbldoth 


dalphdzdoth 
detamhdxdoth 
detafhdzdoth 
detamhdzdoth 
dgamdzdoth 
dxdxdoth 
axdzabldoch 
dxzdoth 
dzdxdoth 
dzazdoldoth 
dzdzdoth 


d(alpha horiz)/dXdot 


d(alpha horiz)/dZ double dot 


d(alpha honz) /dZdot 
d(eta main rotor) /dXdot 
d(eta fuse) /dZdot 

d(eta main rotor) /dZdot 
d(gamma) /dZdot 

ax] dXdot 

dX/dZ double dot 
ax/dZdot 

dz/dXdot 

dZ/dZ double dot 
dz/dzdot 


Fuselage Derivatives 


the following are from the curves In Appendix A of Ref. 2: 


dfdalpf 
dlqdalpf 
drnqdalpf 
dnqdbetaf 
drqdbetaf 
dsfqdbetaf 
dalpfdxdotf 
dalpfdzdotf 
dbetadydotf 
detamfdxdotf 
detamfdzdotf 
dgamndzdotf 
dmdxdot f 
ånidzdot £ 
dndydotf 
drdydotf 
dxdxdotf 
dxdzdot £ 
dydydotf 


d(D/q)/d(alpha fuse) 
d(L/q)/d(alpha fuse) 
d(M/q)/d(alpha fuse) 
d(N/q) /d(beta) 

d (RJq) /d(beta) 
div/aq) /d(beta) 
d(alpha fuse) /dXdot 
d(alpha fuse) /dZdot 
d(beta) /dYdot 
d(eta)M/dXdot 
d(eta)M/dZdot 

d (gamma) /dZdot 
dM/dXdot 

dM/dZdot 

dN/dYdot 

dR/dRdot 

dx/dXdot 

dX/d7 dot 

dr/ardoc 
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dzdxadotf 
dxdzdot 


az/dXdot 
az/dZdot 


Hover Basic Main Rotor Derivatives 


dalda 
daldb 
daldiamp 
daldmu 
daldp 
daldq 
daldtheto 
dblda 
dbldb 
dbidlamp 
dbldmu 
dbldp 
dbldq 
dbldtheto 
dbetdydot 
dchslgda 
dchsigdb 
dchsigdlamp 
dchsigdmu 
dchsigdtheto 
detsigdlamp 
detsigdmu 
dctsigdtheto 
dcqsigdlamp 
dcqsigdmu 
dcqsigdtheto 
dcysigdb 
dlampdxdot 
dlampdydot 
dlampdzdot 
dmdalsm 
dmudxdot 
drdblsm 


Rigging - Cockpit 


dalmddela 
dblmddele 
ddelvddelp 
dphinddelp 
dthetode 
dthetomddele 
dthetotddelp 


Global Variables 


A MAT 

B MAT 
AF MAIN 
AE TIP 
AR 


dals/dA1 

dals/dB1 
dals/d(lambda”) 
dals/dmu 

dals/dp 

dals/dq 
dals/dtheta (o) 
dbls/dAl 

dbls/dB] 
dbls/d(lambda’ ) 
dbls/dmu 

dbls/dp 

dbls/dq 
dbls/dtheta(o) 
d(Beta)/dYdot 
d(Ch/sigma)/dals 
d(Ch/sigma) /dbls 
d(Ch/sigma) /d(lambda”) 
d(Ch/sigma) /dmu 
d(Ch/sigma)/dtheta(o) 
d(Ct/sigma)/d(lambda') 
df ” Ct/sigma)/dmu 
d(Ct/sigma) /dtheta(o) 
d(Cq/sigma) /d(lambda”) 
d(Cq/sigma) /dmu 
d(Cq/sigma) /dtheta (o) 
d(Cy/sigma)/dbis 
d(lambda” ) /dXdot 
d(lambda” ) /dYdot 
d(lambda” ) /dZdot 


dM/dals main rotor stiffness 
drnu/dxdot 
dR/dBIs main rotor stiffness 


Stick Rigging Gains 


dais/d(delta aileron) 

dbls/d(delta elev) 

rudder deflection per pedal travel 
dphi(notar thruster sleeve angle)/d(pedal) 
dtheta(0.7)/d(collective) 
dtheta0m/d(collective) 

dtheta(0.7,tail rotor)/d(pedaJ tran,el) 


A matrix for linear model 

B matrix for linear model 
Main airfoil in meshed airfoil 
Tip airfoil in meshed airfoil 
Aspect Ratio 
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COUNT 

FIX TPP VAL 
INTER 
LAMDAT TRIM 
MAXUM 

MESH VAL 
MESH STA 
MINUM 

NAME 

NEW AUX VAL 
NEW r 

NEW TPP 

NE TWIST 

NL TWIST VAL 
OUT COUNT 
PICK 

PLOT VALS 
RADSPC VAL 
REGIME 


Counter to determine where Performance Input 
Selected value for setting TPP to defined value 
Iteration Interval 

Trim value of lamda prime 

Iteration End Value 

Selected value when airfoil mesh option chosen 
r/R station where mesh occurs 

Iteration Start Value 

Input .mat file name 

Value of auxiliary thrust 

Vector of user defined blade elements 

Value (rads) TPP is set to for compound helo 
User defined twist vector 

Selected value for non linear twist 

Used to enable selection of plot routines 
Iteration Method Choice (1 9) 

Values chosen for no iteration plot 

elected value for non even blade elements 
Include HIGE Calculations Choice (l=yes, 0-no) 


Structured Variables 


S-H-SCCSTAT 
S. MATR VEC 
SSBERESTNPUT 
S-STAB_INPUT 


S_STAB_INPUT_1 
SESTAB INPUT. 2 


S USER INPUT 


SSSR INPUT 
S NOTAR TR INPUT 


Graphics handles for Stab/Control status figure 
Matrix/Vector structure 

Perf.m input structure 

S STAB INPUT 1 andS STAB INPUT 2 

Stab.m input structure for screen 1 

Stab.m input structure for screen 2 

User input structure 

Fan In Tail input structure 

NOTAR input structure 


Graphics Handle Variables 


H AF MESH 
H AL 

H AL IT P# 
H ANAL 

H AS 

H AS IT P# 
H ASPECT 
H ASPECT EDIT 
H BLD EL 
H BK 

IS ISE 
H_BT_IT_P+ 
HSB ER 

H BTR IT På 
H check1 

H check2 

H check3 
Hö 
Mis 

H CNF 

H datain 


Airfoil Mesh List Box 

Altitude Iteration Radio Button 
Altitude Iteration Plots 

Analysis Figure Window 

Airspeed Iteration Radio Button 
Airspeed Iteration Plots 

Aspect Ratio Static Text Box 

Aspect Ratio Edit Text Box 

Blade Element Menu Handle 

Iteration Method «« Back Push Button 
Blade Twist Iteration Radio Button 
Blade Twist Iteration Plots 

Blade Taper Ratio Iteration Radio Button 
Blade Taper Ratio Iteration Plots 
Save Input Data Check box 

Save Output Data Check box 

Save Matrix & Vector Data Check box 
Change Input Data Radio Button 
Change Iteration Method Radio Button 
Create New Radio Button 

Save Input Data Edit Box 
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H dataout 
HODISK 

H EJANRAD 
H EREF 

H FIX TPP 
H GO 

H GW 

H GW IT På 
H HIGE 

H inputfile 
H IP 

HØTT BOX 

H IT METH 

H JAN 

H LB 

H LAT 

H LONG 
15COL 

H MEN 

H MESH 

HENT 
H_NO_IT_P#Ë 
H_NL_TWIST 
h_opt 
H_OPTIONS 
H_outputfile 
H_P 

H_PED 

H_POP 
H_PERF_IN 
H_PERF_OUT 
H_PRDA 
Hiorıntın 
Hørrintout 
H printvec 
H PSCA 

H RBR IT P# 
H RBS IT P# 
H RD 

HØRES 

BBR TB 
H_RUPT 
H_SAC 

He SOT 
H_SOT_IT_P# 
H_SC_SAVE 
H SAVE CON 
H STAB IN1 
H STAB IN2 
H STAB OUT 
H STATUS 
HİÖSTATUSİ 
HESTATUSZ 

H STATUS3 
1150157 
H vecdata 
H vecfile 


Save Output Data Edit Box 

Horiz. Tail Under Main Rotor Disk Check Box 
Exit JANRAD Radio Button 

Edit/Run Existing File Radio Button 
Set TPP Check Box 

Analyze Push Button 

Gross Weight Iteration Radio Button 
Gross Weight Iteration Plots 

Iteration Parameters HIGE Check box 
Input File Static Text box 

Iteration Parameters figure window 
Iteration Parameters Static Text Box 
Iteration Method figure window 

JANRAD 98 Figure window 

Input File List Box 

Lateral Cyclic InputCheck Box 

Long. Cyclic Input Check Box 

Colective Input Check Box 

JANRAD 98 Options Menu handle 

Mesh Parameters figure window 

No Iteration Radio Button 

No Iteration Plots 

Non linear twist check box 
Performance Output JANRAD Options Menu 
Options Figure Window 

Output File Static Text box 

Performace Radio Button 

Pedal Input Check Box 

Airfoil nist. Box 

Performance Input Figure Window 
Performance Output Figure Window 
Perform Rotor Dynamics Radio Button 
Print Input File Check Box 

Print Output File Check Box 

Print Matrix & Vector File Check Box 
Perform Stability and Control Radio Button 
Rotor Radius Iteration plots 

Rotor Speed Iteration plots 

Rotor Dynamics Radio Button 

Resume Push Button 

Return to Beginning Radio Button 
Interrupt Push Button 

Stability and Control Radio Button 
Start of Taper Iteration Radio Button 
Start of Taper Iteration Plots 
Stab/Conrrol Save File Output Figure Window 
Stab/Control Save File Output Confirm Window 
Stab/Control Input Figure page 1 
Stab/Control Input Figure page 2 
Stab/Control output figure window 

Top Analysis Status Static Text Box 
Middle Analysis Status Static Text Box 
Middle Analysis Status Static Text Box 
Bottom Analysis Status Static Text Box 
Stab/Conrol Standby Screen Figure Window 
Save Matrix & Vector Data Edit Box 
Vector File Static Text box 


Al 


H WORK Working Directory Edit Box 
H WSA Wing Span Area Iteration Radio Button 
H WSA IT P# Wing Span Area Iteration Plots 
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APPENDIX D. MATLAB M-FILES 


about_janrad.m 


function about_janrad() 


de de ge ge ge 00 00 ge 


This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


% This function generates a screen listing all contributers to the 
JANRAD 

$ program. 

% Modifed for JANRAD 6.0 by LT D.A. Heathorn 


load about, janrad 


a 


25”, 


figure/ ”UniEs /”normalized”, 
“604or ,10:60 0.6 0-81, 
'Colormap',matO0, 
'MenuBar','none' S 
‘Name’ Vans. JANRAD 98', 
Meet Set”. 
EE matl, 2 
.Position”, 10.1075 0.13 О, 6675 OQ OE 
275: 5917): 
uicontrol('Parent',a, 
‘Units’. normalezede aa. 
"BackgroundColor |U. 752941 O27 5294 0 #52941 eee 
'Position',[0.00749064 0.0194805 0.975655 0.963205]5 
'Style','frame' 
'Tag','Framel'); 
uicontrol('Parent',a, 
“Units, normalizada 
Bela rola ela POS 752941 0 752941 0 7529411, . 
"Position”, İ0u0238825 0.348485 0.930712 0.53160171, 
"Style. crame" 
“mag. Frånme2 


uscontrol('Parent'^,a; 
"Units”, ”normalız€47. 
"Backgroundeelor 70. 7529400 75294250, 752941), 
"FontSize 147777 
^Fontweidght', «bold REEE 
‘Position’, [0.0189125 0.685119" 0. 959810. 1220242 : 
'String','Joint Army/Navy Rotorcraft Analysis and Design JANRAD 


„Style, texti, : 
"Tag , Statichext i. jm, 


7 


uicontrol('Parent',a, 
^Units','normalized', : 
BackgroundColor "Wer 752941 0.752941 0.759941], 
"“Eontsize”.102— 
tPontweight','bold', ... 
5565: en 71052 0125 0 7432017. 0 526189 0:1042831, 
‘String’, ‘Naval 77 School Monterey, California” 
‘Style’ : 
“Tağ” P 7 

icons EC Parent”,a, 
‘Unies’ normalized", .. 
“BackgroundColer [o0 752941 Ve SLN SAM 
"FontSize”,10, : 
EE ‘demi’ 7 
GPosrtion'^,[0: 401773 0% 674115 0.192024 0.0595903], 
string”, MARCH 1999’, 
"Style" 2 
Tag: Federer > 

E t Parent',a, 
^"Undts' normalized’, .. 
ксләр. LO: 752941 Ola 52941) 0 752941] . 
opositcien , [000355805 0.5872251 0911985 010367965]. : 
'String','Version 5.0 Designer: LCDR. William L. Hucke,  USCG', 


“Style”, text”, 
'Tag' Bocca ope tl. Me 

uoa rell Parent',a, 
Wte, ‘normalized’ mm. 
75:75. [97 752941 0-752941 0.752941]. SS, 
‘position’, 10.0318352 04530797 / 913858 0704112557 
“String', Version 4.0 Designer: LCDR. Chris F. Lapacik, UN, 
“Seyle”,” text”, 2 
“mağ, StaticText2”)” 

uicontrol('Parent',a, 
'Units','normalized', ze 
CBackgrounmdcolor^,[0.752941 0.752941 Q0.752981], 
"POSITION! , [O 0316552 00:443723 (0. 913858 0.04329j8 
'String','Version 3.0 Designer: LT. Dave Eccles,  USN', 
‘Style’, “text a 
“Taga”, StaticText5”): 

uteontroll Parent" å, 
“Units”, normalized”, .. 
"Backgroundcolor' иј 752941 0.752941 0.7529411, 
Fon O a EE 02400435 0.993655 070417255), 
'String','Version 2.0 Designer: LT. Dale Feddersen, USN’, 
style”, text”, S 
“ruq” ,“SteticTextl”)? 

uicontrol('Parent',a, 
"Units", normalized/, så 
асан JA OE 752941 O. 52941 10275291110 sa 
‘Position,’ , KO 0359500510. 49134280 938530 0411255] 
‘String’,’Version 3.1 Designer: LT. Dan Hiatt, USN’, 
‘Style’, texte, : 
mag , State |, 

urcontrol('Parent'^ sa, 
“Units”, normalized”, .. 
"Backgaroundcotor”, 10. 752941 0.752941) 0.75294), 
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'Position',[0.0337079 0.354978 0.913858 0.0411255], 
'String','Version 1.0 Designers: MAJ Bob Nicholson, 


Walter Wirth,  USA', 


o 
li 


"Style", text, y 
'Tag' —: Jag 


didsHbrolWt Parent',a, 


“Units”, normalized’, . 

' BackgroundColor’, [0. 752941 025:52941 0: 7529407 
‘Horizontala en. 1607 

"Position” 10-:0945347.0 146976 0. 807976 0.189944), 
“String: 5 

"Style ext. 

' Tag’ 5 GE 


EE Mik Parent',a, 


(UnitEs/,/normalized/, —.. 

'Callback','close (gcf)", 

fkonEsSize 1422. 

'*FontWeight','beld', ... 

‘Posit von’ ) (0.408983 0. 0505952 0 -177305 0089285071 
SEEING “OK Me 

'Tag' Push IE 


Beso Parent',a, 


“Units” 4normelized', . 
‘BackgroundColor’, [0. 752941 On752941. 027529417; "ə 
27:11171(17777- 0. 623377 0:29211765 0:05079205.. 


USA & MAJ. 


'String','Version 6.0 Desienger: -LT David A. Heathorn, USN’, 


Style" ext r 
SEI 
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> Bode_plotter 


% Bode_plotter.m 


% M-file called by time freq resp fcn.m to plot Bode Diagrams for 


specified input and output. 


% Created for JANRAD version 6. 


global Amat Bmat u C 


pens 
bie ab) 


for fas: length te) 
HE CI 3 Gad 


figure 
bode(Amat, Bmat(:,1), 
SLE 18 
title('Response of 
Enput”? 
elseif j-- 
title('Response of 
Ert) 
elseif j-- 
title('Response of 
put 


elseif j== 
title('Response of 
Cyclic Tapikin 


elseif j==5 
title('Response of 


Trpue') 
elseif j== 
title('Response of 
Input) 
elseif j== 
title('Response of 
Тррир ии 
elseif j-- 
title('Response of 
input”) 
elseif j-- 
title('Response of 
Input: 


end 


O by LT David A. Heathorn 


CB) 


x-velocity (u) to Longitudinal Cyclic 


z-velocity (w) to Longitudinal Cyclic 


Pitch Rate (q) to Longitudinal Cyclic 


Pitch Angle (theta) to Longitudinal 


y-veloctiy (v) to Longitudinal Cyclic 


Roll Rate (p) to Longitudinal Cyclic 


Roll Angle (phi) to Longitudinal Cyclic 


Yaw Rate (r) to Longitudinal Cyclic 


Yaw Angle (psi) to Longitudinal Cyclic 
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end 
end 


elseif u(2)== 


for )21:1ength(e) 
1556040 SEN 
figure 
bodetfAmat, Bmaet:20 CO. ND) 


ba == 
title('Response of x-velocity (u) to Collective  Input') 


elseif j==2 
title('Response of z-velocity (w) to Collective Input') 


elseif j-- 
title('Response of Pitch Rate (q) to Collective Input') 


elseif j-- 
title('Response of Pitch Angle (theta) to Collective Input’) 


elseif j== 
title(’Response of y-veloctiy (v) to Collective Input’) 


elseif j== : 
title('Response of Roll Rate (p) to Collective Input”) 


elseif j== 
title(’Response of Roll Angle (phi) to Collective Input’) 


elseif j== 
title(’Response of Yaw Rate (r) to Collective Input’) 


elseif j== 
title(’Response of Yaw Angle (psi) to Collective Input’) 


end 
end 
end 


elseif u(3)== 
HOT Jz1l: Length (CG) 
TE C(j,j)==1 
figure 
bodei(Amat, Bmati: 3) 0€ 02. :)5 5) 
3L3E JES= 
title('Response of x-velocity (u) to Lateral Cyclic Input') 


else == 
title('Response of z-velocity (w) to Lateral Cyclic Input') 


elseif j== 
title('Response of Pitch Rate (q) to Lateral Cyclic Input’) 


elseif j== 
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title('Response of Pitch Angle (theta) to Lateral Cyclic 


EDDUE 4 
elseif j== 
title(’Response of y-veloctiy (v) to Lateral Cyclic Input’) 
elseif j== 
title(’Response of Roll Rate (p) to Lateral Cyclic Input’) 
elseif j== 
title(’Response of Roll Angle (phi) to Lateral Cyclic 
Input 3) 
elseif j== 
title(’Response of Yaw Rate (r) to Lateral Cyclic Input’) 
elseif j==3 
title('Response of Yaw Angle (psi) to Lateral Cyclic Input') 
end 
end 
end 


elseif u(4)== 


tor j=l:lenGEn|€) 
if C(j,j)==1 
figure 
bode(Amat, Bmat(:,4), C(2,:), D) 
if j== 
title('Response of x-velocity (u) to Pedal Input’) 


elseif j== 
title('Response of z-velocity (w) to Pedal Input') 


elseif j== 
title('Response of Pitch Rate (q) to Pedal Input') 


elseif j== 
title(’Response of Pitch Angle (theta) to Pedal Input’) 


elseif j== 
title(’Response of y-veloctiy (v) to Pedal Input’) 


elseif j== 
title(’Response of Roll Rate (p) to Pedal Input’) 


elseif j== 
title(’Response of Roll Angle (phi) to Pedal Input’) 


elseif j== 
title(’Response of Yaw Rate (r) to Pedal Input’) 


elseif j== 
title(’Response of Yaw Angle (psi) to Pedal Input’) 
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3. Cbodygroup 

5 Cbodygrp.m 

% CALLED BY Cruise.m 

$ Computes the stability derivatives of the fuselage, wing, verticle 
$ fin and horizontal stabalizer in cruise flight. 

5 

5 

$ Compute the stability derivatives of the fuselage 

% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 


dgamdzdotfz-1/V; 

dbetadydotf=1/V; 
detamfdxdotf-vfv1/(A*q*pi*R^2)*(-dzdxdotm-2*T/V); 
detamtsdzdotfs-vivl/(4A*q*pi*R^2)*dzdzdotm; 
dalpfdxdotf=-detamfdxdotf; 
dalpfdzdotf=-(detamfdzdotf+dgamdzdotf); 

% 

% the folowing are from the curves in appendix A of Prouty: 
% and can be modified if necessary 
dfdalpf=-2; 

dlqdalpf=74.5; 

dsfqdbetaf=-220; 

amqdalpf=1780; 

dmqdalpf_intercept=-175; 

dnqdbetaf=-820; 

drqdbetaf-230, 

€ 

dxdxdotf=-2/V*Afh*q; 
dxdzdotfz(-AEtDn*ug-d*dtidalpt)*dalpfdzdott; 
dydydotf=1/V* (q*dsfqdbetaf-Afh*q); 
dzdxdotfz(2/V)*Afh*q; 
dzdzdotfz(-Afh*q-q*dlqdalpf)*dalpfdzdotf; 
drdydotfzq*drqdbetaf*dbetadydotf; 


Mf_bar=((dmqdalpf*-(im+alphaT) )+dmqdalpf_intercept) *q; 
admdxdotf=q*dmqdalpf*dalpfdxdotf+(2*Mf_bar/V); 


dmdzdotfzq*dmqdalpf*dalpfdzdotf; 
dndydot f=q*dnqdbetaf*dbetadydotf; 


5 

$ Compute the stability derivatives of the wing 
% 

1f wing== 


dgamdzdotw=-1/V; 

detamhdxdotw=vwv1/ (4*q*pi*R%*2) * (-dzdxdotm-2*T/V) ; 

detamhdzdotw=-vwv1/ (4*q*pi*R%*2) *dzdzdotm; 

detafhdzdotwzdetafdalpfw* (1/(4*q*pi*R^2)*dzdzdotm-dgamdzdotw); 

dalphdxdotw=-detamhdxdotw; : 

dalphdzdotw=- (detamhdzdotw+detafhdzdotw+dgamdzdotw) ; 

dalphdzdbldotwz-detamhdzdotw*lw/V; 

% 

dxdxdotw=-2*cdow; 

dxdzdotw=q*Aw*aw* ( (alpw-alplow) * (1-2*aw* (1+deliw) *Aw/pi/bw%*2) +alpw- 
DW. 

dalphdzdotw; 
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dxdzdbldotw=dxdzdotw*dalphdzdbldotw/dalphdzdotw; 
dzdxdotw=2/V*Zw-q*Aw*aw* (1+aw* (1+deliw) *Aw/pi/bw*2* (2* (alpw- 
ea lplow)*. e 
(alpw-iw) +(alpw-alplow) *2) +cdow) *dalphdxdotw; 
dzdzdotw=-q*Aw*aw(l+aw* (1+deliw) *Aw/pi/bw*2*(2*(alpw-alplow) *... 
(alpw-iw) + (alpw*alplow) *2)+cdow) *dalphdzdotw; 
dzdzdbldotwzdzdzdotw*dalphdzdbldotw/dalphdzdotw; 
% 
dzdqw=dzdzdotw* lw; 
dzdaw=dzdzdotw*lw; 
admdxdotw=-dxdxdotw*hw+dzdxdotw* lw; 
dmdzdotw=-dxdzdotw*hw+dzdzdotw*lw; 
admdzdbldotw=-dxdzdbldotw*hw+dzdzdbldotw*lw; 
amdqw=dzdqw* 1h; 
% 
drdrwzq*Aw*bw*bw*aw*alpw/4/V/V/Ixx; 
drdpw=-q*Aw* bw*bw/ 4/V/V/Ixx*pi* (1+3*ctw/crw) / (6* (l+ctw/crw) ) ; 
else 
% 
% Zero stability derivatives of the wing when no wing is installed 
% 
dxdxdotw=0; dxdzdotw=0; dxdzdbldotw=0 ; dzdxdotw=0; 
dzdzdotwz0;dzdzdbldotwz0; 
dzdqwz0;dzdqwz0; dmdxdotw-0; dmdzdotwz0; 
dmdzdbldotwz0;dmdqwz0; 
drdrwz0;drdpwz0; 
end 
% 
% Compute the stability derivatives of the verticle fin 
% 
detafdbeta=.06; % assumed to be .06 because of little study of effect 
dbetadydotv=1/V; 
detatvdxdotv=-1/ (4*qvq*q*Av) * (dydxdott-2*Tt/V) ; 
dalpvdxdotv=detatvdxdotv; 
detatvdydotv=dydydott/ (4*qvq*q*At) ; 
detafdydotv=detafdbeta*dbetadydotv; 
dalpvdydotv=- (dbetadydotv+detatvdydotv+detafdydotv) ; 
% 
eBeaxdcotv=0: 
dxdydotv=0; 
dydxdotv=2/V*Yv+qvq*q*Av*av*dalpvdxdotv; 
dydydotvz1/(1-deldv/Yv)*... 
(qvq* q*Av*av*dalpvdydotv+deldv* (-2/V+1/Tt*dydydott) ) ; 


% 

dydpv=dydydotv*hv; 
dydrv=-dydydotv*lv; 
drdxdotv=dydxdotv*hv; 
drdydotv=dydydotv*hv; 
drdpv=dydpv*hv; 
drdrvedydrv”hv, 
dndxdotv=-dydxdotv*1v; 
dndydotv=-dydydotv*lv; 
dndpv=-dydpv* lv; 
dndrv=-dydrv* lv; 

% 
dyddelv=q*qvq*Av*clvertmax/delvmax; 
drddelv=dyddelv*hv; 
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adnddelv=-dyddelv*lv; 
% 
% Compute the stability derivatives of the horizontal stabalizer 
% 
dgamdzdoth--1/V, 
detamhdxdothzvhv1/(4*q*pi*R^2)*(-dzdxdotm-2*T*cos (altpp)/V); 
detamhdzdothz-vhv1/(4*q*pi*R^2)*dzdzdotm; 
detafhdzdoth=detafdalpfh* (1/(4*q*pi*R"2)*dzdzdotm-dgamdzdoth) ; 
dalphdxdoth=-detamhdxdoth; 
dalphdzdoth=- (detamhdzdoth+detafhdzdoth+dgamdzdoth) ; 
dalphdzdbldoth--detamhdzdoth*lh/V; 
% 
etamh=vhvl*vl/V; 
etafh=detafdalpfh*tho; 
Xh=(Lhoriz*sin(tho-(etamh+etafh+gamc) )-Dhoriz*cos (tho- 
(etafh+etafh+gamc))); - | 
axdxdoth=2/V*Xh+qhq*q*Ah*ah* ((alph-alploh) *(1- 
2*ah* (1+delih) *Ah/pi/bh*2)+alph-ih)*... 

dalphdxdoth; 
dxdzdoth=qhq* q*Ah*ah* ( (alph-alploh) * (1-2*ah* (1+delih) *Ah/pi/bh*2) +alph- 
ının x 

dalphdzdoth, 
dxdzdbldoth=dxdzdoth*dalphdzdbldoth/dalphdzdoth; 


Zh=(-Lhoriz*cos(tho-(etamh+etafh+gamc))-Dhoriz*cos(tho- 
(etafh+etafh+gamc))); 


azdxdothsz(27V*(Zzh))-ghg*d*Ah*ah*(1*sah*(ltdelih)*Ah/pi/bh^2*(2*(alph- 
“İPTOLR/”... 

(alph-ih) + (alph-alploh) *2)+cdoh) *dalphdxdoth; 
dzdzdoth=-abs (-qhq*q*Ah*ah* (1+ah* (1+delih) *Ah/pi/bh*2*(2*(alph- 
alpioR)*... 

(alph-ih) +(alph*alploh) *2)+cdoh) *dalphdzdoth) ; 
dzdzdbldoth=dzdzdoth*dalphdzdbldoth/dalphdzdoth; 
% 
dzdghsdzdzdotb*lh; 
dıdah-dıdzdeth?olh: 
dmdxdoth=-dxdxdoth*hh+dzdxdoth*lh; 
dmdzdoth=-dxdzdoth*hh+dzdzdoth*lh; 
dmdzdbldoth=-dxdzdbldoth*hh+dzdzdbldoth*lh; 
dmdqhedzdqh”lh, 
% 
% return to CRUISE.M 
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4. Cmrgrp.m 

$ Cmgrp.m 

$ CALLED BY Cruise.m 

$ Computes the basic MR derivatives in cruise flight 

$ Computes the stability derivatives of the main rotor in cruise flight. 
% Uses data loaded in the workspace by JANRAD.M and STAB.M 
% 

% Compute the basic mainrotor derivatives. 

% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 


dmudxdotz1/ohm/R ; 
dlampdxdot=(1/ohm/R) * (-altpp- (sigma/2/mu) * (dctsigdmu-ctsig/mu)) ; 
dlampdzdot=1/ (ohm*R* (1+dctsigdlamp*sigma/2/mu)) ; 

abetaydot=1/V ; 

dchsigda=ctsig+a/8*lamp ; 

dcysigdb=dchsigda : 

daldq=-16/ (lockno*ohm* (1-e/R) *2* (1-mu*mu/2))-... 

12*e/R/(lockno*ohm* (1-e/R)*3*(1-mu*4/4)) ; 

daldp=1/ (ohm* (1-mu*2/2))-192*e/R/ (lockno*2*ohm* (1-e/R)*5*(1-mu*4/4)) ; 
dalda=12*e/R*(1+mu*2/2)/(lockno*(1-e/R)*3*(1-mu*4/4)) ; 

67 :5--17(1-:3/27mu”2)/(1-mu”2/2) ; 

dbidq=-inv (ohm* (1+mu%*2/2) )+192*e/R/ (lockno*2*ohm* (1-e/R) *5* (1-mu%*4/4)) ; 
dbldp=-16/(lockno*ohm* (1-e/R)*2*(1+mu*mu/2))-... 
12*e/R/(lockno*ohm*(1-e/R)^3*(1-mu^4/4)) ; 

ábida=1 ; 

dbldbz12*e/R*(1-*3/2*mu^2)/(1lockno*(1-e/R)^3*(1-mu^4/4)) ; 
dmdalsm=3/4*e/R*Ab*rho*R* (ohm*R) “2*a/lockno ; 

drdblsm-dmdalsm ; 

% 

% Compute the mainrotor stability derivatives. 


% 

dxdxdotm-- 

rho*Ab* (ohm*R) *2* ( (dchsigdmu+dchsigda*daldmu+ (als+im) *dctsigdmu)... 
*dmudxdot+ ((dchsigdlamp+dchsigda*daldlamp+(als+im) *dctsigdlamp) *dlampdxd 
GEN) ; 

aRaydotm=rho*Ab* (ohm*R)*2*ctsig*(A1-bls) *dbetdydot ; 

dxdzdotm-- 

rho*Ab* (ohm*R) *2* (dchsigdlamp+(ctsig*daldlamp)+(als+im) *dctsigdlamp)... 
*dlampdzdot ; 

dxdqm--rho*Ab* (ohm*R)^2*dchsigda*daldq-dxdxdotm*hm ; 

dxdpm--rho*Ab* (ohm*R)^2*dchsigda*daldp-dxdydotm*hm ; 
dxdthetom=-rho*Ab* (ohm*R) “2* (dchsigdthetotdchsigda*daidtheto+... 
(als+im)*dctsigdtheto) ; 

dxdalm=-rho*Ab* (ohm*R) “2*dchsigda*dalda ; 
dxdbim=-rho*Ab* (ohm*R) *2*dchsigda*daldb ; 

dydxdotm=rho*Ab* (ohm*R)*2* (dcysigdb*dbldmu+bls*dctsigdmu) *dmudxdot ; 
dydydotm=-rho*Ab* (ohm*R)*2*(chsig+ctsig* (Bl+als)) *dbetdydot ; 
dydzdotm=rho*Ab* (ohm*R)*2*dbldlamp*dcysigdb*dlampdzdot ; 
dydam=rho*Ab* (ohm*R) “2*deysigdb*dbldg+dydxdotm*hm ; 
dydpm=rho*Ab* (ohm*R) *2*dcysigdb*dbldp+dydydotm*hm ; 
dydthetom=rho*Ab* (ohm*R) *2* (dcysigdb*dbldtheto+bls*dctsigdtheto) ; 
dydalm=rho*Ab* (ohm*R) *2*dcysigdb*dblda ; 

dydblm=rho*Ab* (ohm*R) “2*dcysigdb*dbldb | 

dzdxdotm=-rho*Ab* (ohm*R) *2* (dctsigdmu*dmudxdot+dctsigdlamp*dlampdxdot) , 
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dzdzdotm=-rho*Ab* (ohm*R) *2*dctsigdlamp*dlampdzdot ; 
dzdrm-2/ohm*rho*Ab*(ohm*R)^2*ctsig ; 

dzdthetom--rho*Ab* (ohm*R)^2*dctsigdtheto ; 
dzdblm--rho*Ab*(ohm*R)^2*dctsigdlamp*inv(daldlamp)*daidb ; 
drdxdotm=drdblsm*dbldmu*dmudxdot+dydxdotm*hm+dzdxdotm*ym ; 
drdydotm=-drdblsm* (Bl+als) *dbetdydot+dydydotm*hm ; 
drdzdotm=drdblsm*dbldlamp*dlampdzdot+dydzdotm*hm+dzdzdotm*ym ; 
drdam=drdblsm*dbldg+dydqm*hm ; 

drdpm=drdblsm*dbldp+dydpm*hm , 
drdthetom=drdblsm*dbldtheto+dydthetom*hm+dzdthetom*ym : 
drdalm=drdblsm*dblda+dydalm*hm ; 
drdblm=drdblsm*dbldb+dydblm*hm ; 

dmdxdotm=dmdalsm* (daldmu* dmudxdot+daldlamp*dlampdxdot) +dxdxdotm*hm+dzdxd 
Stma lmi; 

dmdydotm=-dxdydotm*hm+dmdalsm* (Al-bls)*dbetdydot ; 
dmdzdotm=dmdalsm*daldlamp*dlampdzdot-dxdzdotm*hm+dzdzdotm*lm ; 
dmdqm-dmdalsm”daldq-dxdqm”hm ; 

dmdpm=dmdalsm*daldp+dxdpm*hm ; 
dmdthetom=dmdalsm*daldtheto-dxdthetom*hm+dzdthetom*lm ; 
dmdalm=dmdalsm*dalda-dxdalm*hm ; 
dmdblm=dmdalsm*daldb-dxdblm*hm ; 

dndxdotm=rho*Ab* (ohm*R) *2*R* (dcqsigdmu* dmudxdot+dcqsigdlamp*dlampdxdot) 


, 


dndzdotm=rho*Ab* (ohm*R) *2*R*dcqsigdlamp*dlampdzdot ; 
dndrm--2/ohm*rho*Ab* (ohm*R)^2*R*cqsig ; 
andthetom-rho*Ab*(ohm*R)^2*R*dcgasigdtheto ; 

% 

% returm to CRUISE.M 
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un 


ge AP AP AP ge de ge ge de ge ge AP ge ge de ge dP dP ge ge ge oe oe 


% 


Cruise.m 
Cruise.m 


Computes the stability derivatives in cruise flight. 
calls the following subroutines 


Cmrgrp 

Ctrgrp 

Cfusegrp 

Trim 

Eceplots or Detmats 


evaluate basic stability derivatives 


MAIN ROTOR 

dctsigdmu dctsigdtheto dctsigdlamp 
dchsigdmu dchsigdtheto dchsigdlamp 
dcqsigdmu dcqsigdtheto dcqsigdlamp 


daldmu daldtheto daldlamp 
dbidmu dbidtheto dbidlamp 
TAIL ROTOR 


dctsigdlampt dctsigdmut dctsigdthetot 


Modified for JANRAD version 6.0 by LT David A. Heathorn 


global S SC INPUT 1 S SC INPUT 2 S PERF. INPUT S PERF OUTPUT H S SC STAT 
S H SC STAT Amat Bmat 


% 


Unstructure input variables 


EESTAB INPUT 1-S SC INPUT 1; 
EB TAB INPUT 2-5 SC INPUT 2; 


unstructure 
Unstructure stab input 1 
Bustructure stab input 2 
unstructure2 


H SC STAT-S HK SC STAT.h sc stat: 
H STATUS-S H SC STAT.h status, 

H STATUS1-S H SC STAT.h status1; 
H STATUS2=S H SC STAT.h status2; 
H STATUS3zS H SC, STAT.h, status3; 
HØSTATUS4=S Н SC. STAT.h. status4; 
H BK-S H SC STAT.h bk; 

H GO-S H SC STAT.h go; 
HERUPT-S H SC STAT.h rupt; 

H RES=S H SC STAT.h res: 

H MEN-S H SC STAT.h men; 


% 


VARIABLE UNIT CONVERSION 
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koi 

men ST. 

delta3=delta3/57.3; 
thetalt=thetalt/57.3; 
alpliøv=alploøv 51.3; 
alplohsalploh/57.3; 

1ihzih/57.3; 

alplow=alplow/57.3; 

1v=iw/57.3 

SWIrl=gwirl/57.5; 
dbimddele=dbimddele/57.3; 
dalmddela-dalmddela/57.3, 
dthetomddelc=dthetomddelc/57.3; 
dthetotddelp=dthetotddelp/57.3; 
sidearm=sidearm*2; 
Ehetalcethetalc/57.3: 
thetals=thetals/57.3; 
thetao=thetao/57.3; 
alphaT=alphaT/57.3; 
betao=betao/57.3; 


if sidearm== 
sidearm=le3; 

end 

dphinddelp=pi/sidearm; 

sidearm-pi/(sidearm”2), 


thetal--tvist, 


set (H STATUS2, 'STRING', ‘CRUISE ROUTINE”) 

Set (H STATUS4, 'STRING', ‘FIRST OF THREE PARAMATER VARIATIONS’ ) 
tac 

set (H STATUS1, 'STRING', ‘START ELAPSED TIME”) 

pause (3) 


% vary mu 


set(H_STATUS4,'STRING', ‘VARYING MU”) 
stab_calc_mu 


% vary thetao 
Set(H STATUSA,'STRING', 'VARYING THETAO') 
stab calc. to 


% vary lambda prime 


set(H STATUSA,'STRING', 'VARYING LAMDA PRIME") 
stab calc. la 


$ Calculating derivative from vectors. 


set (H_STATUS4, ' STRING’, ‘COMPUTING DERIVATIVES’ ) 
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dctplots 


HERE OE 
detplott 
end 


$ CONFIGURATION CALCULATION 
Set (H STATUS4, 'STRING', 'CALCULATING MATICIES') 


unstructure2 
thetalc=thetalc/57.3; 
thetals=thetals/57.3; 
thetao=thetao/57.3; 
thetao-thetao-.7*thetal; 
etsig=vctsig_mu(1,2); 
ehsigevchsig.mu(1,2): 
cqsig=vcqsig_mu(1,2); 
alphaT=alphaT/57.3; 
altpp=alphaT; 
A1=-thetalc; 
Bl--thetals; 
ao-betao; 

PE vvi omu(1,2); 
M=VinE; 
sigma=solidity; 


% Main Rotor 
ohm=omega; 
lv=lvd-xcg; 
26.2: 
£ZDi”R”R, 


hm-hmd-zcg, 

ym=ymd-ycg; 

lm=lmd-xcg; 
c=(sum(cblade)/length(r)); 
Abzc*R*b; 

lamp=vlamp la(1,2): 
mem mu(1,2); 

2c=CT; 

Atv; 
Buetat-4d/a*ctsigs«sqrt(solidity*ctsig/2); 
Tocknos-rho*a*c*R^4/Ib; 
theta75=thetao+.75*thetal; 
als=0; 

bls=0; 

m=GW/g; 

ESTAN? LZZ: 

1h=1hd-xcg; 

hh=hhd-zcg; 

yh-yhd-ycg; 

hv=hvd-zcg; 

yv=yvd-ycg; 

delvmax=pi/4; $est max verticle fin defl before stall 
15 naxr-— 
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ddelvddelp=0; 


else 

ddelvddelp=delvmax/maxr ; $ verticle fin deflection/maxr 
end 
itti o: 

$ NOTAR 

vlmax=1.2*v1l; % downwash at the boom slots (NOTAR) 


len=lttnd-xeg; 
In=lEnd-x€g; 
yn=ytnd-xcg; 
hn-htnd-zcg; 


Denz? 
D:bsicgsse*soludity*rho*A*(ohm*R)^2*R-Lvert*Iv)/ltn; 
cmun=.55; % a typical value 

5B-5:: 


Bslo6 7 dian/2: 
arn=bn/dian; 
At=pi*dian*dian/4; 
Rt=dian/2; 
end 
ff Swing<.l 
wing=0; 
else 
Aw=Swing; 
lw=lwd-xcg; 
hw=hwd-zcg; 
yw=ywd-ycg; 
alpw=CLwing/aw; 
deliw=ewing; 
Zw=Lwing; 
bw=bwing; 
cdow=CDowing; 
Ra Cyd 
end 
Av-Svert, 
bv=bvert; 
Ah=Shoöriz: 
Bh=bhor1iz; 
cdov=CDovert; 
cdohsCDohoriz; 
deliv=ewing; 
delih=ewing; 
alph=CLhoriz/ah; 
Zhzbhorrz; 
Yv-Lvert; 
1777701707 17 end; 
deldv=1.72*(1-bv/ (20+Rt))*(2*Yv/(2*Rt+bv)); 


% trim conditions 
tho=0; 

pho=0; 

760) 
nosvint*cosí(tho); 
wo-uo*tan(tho); 
gamc=0; 
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$ STABILITY CALCULATION 


Cmrgrp 
“Ererp 
Cbodygrp 


$ computation of A,B,C,D matrices 


All= 
A12- 
A13- 
A14= 
A15= 
A16= 
A17= 
A18= 
% 

A21= 
A22= 
A23= 
A24= 
A25= 
A26= 
A27= 
A28= 
% 

A31= 
A32= 
A33= 
A34= 
A35= 
A36= 
A37= 
A38= 
% 

A41= 
A42= 
A43= 
A44= 
A45= 
A46= 
A47= 
A48= 
% 

A51= 
A52= 
A53= 
A54= 
A55= 
A56= 
A57= 
A58= 
% 

A61= 


(axdxdotm+dxdxdoth+dxdxdotv+dxdxdotf+dxdxdotw) /m; 
(dxdzdotm+dxdzdoth+dxdzdotf+dxdzdotw) /m; 

(dxdqm) /m-wo; 

-g*cos(tho); 

(dxdydotm+dxdydotv) /m; 

dxdpm/m; 

0, 

0; 


(dzdxdotm+dzdxdoth+dzdxdotf+dzdxdotw) /m; 
(dzdzdotm+dzdzdoth+dzdzdotf+dzdzdotw) /m; 
(dzdqh+dzdqw) /m+uo; 

-g*cos (pho) *sin(tho); 

0; 

05 

-g*sin(pho) *cos(tho) ; 

dzdrm/m; 


(dmdxdotm+dmdxdoth+dmdxdotf+dmdxdotw) /Iyy; 
(dmdzdotm+dmdzdoth+dmdzdotf+dmdzdotw) /Iyy; 
(dmdqm+dmdqh+dmdqw) /Iyy; 

0; 

dmdydotm/ Iyy; 

(dmdpm) /Iyy; 

0; 

0; 


0; 
OG 
cos (pro); 
OG 


-sin(pho); 


(dydxdotm+dydxdott+dydxdotn+dydxdotv) /m; 
(dydzdotm+dydzdotn) /m; 

dydqm/m; 

-g*sin(pho)*sin(tho); 
(dydydotm+dydydott+dydydotn+dydydotv+dydydotf)/m; 
(dydpm+dydpt+dydpn+dydpv) /m+wo; 

g*cos (pho) *cos(tho) ; 

(dydrt+dydrn+dydrv) /m-uo; 


(Izz* (drdxdotm+drdxdott+drdxdotn+drdxdotv)... 


+Ixz* (dndxdotm+dndxdott+dndxdotn+dndxdotv) )/Ic; 


A62= 
A63= 


(Izz*(drdzdotm+drdzdotn)+Ixz* (dndzdotm+dndzdotn))/Ic; 
(Izz*(drdam)+1Ixz*(0))/Te; 
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A64= 0; 
A65= (Izz* (drdydotm+drdydott+drdydotn+drdydotv+drdydotf)... 

+Ixz* (dndydott+dndydotn+dndydotv+dndydotf))/Ic; 
A66= (Izz* (drdpm+drdpt+drdpn+drdpv+drdpw) +Ixz* (dndpt+dndpn+dndpv) ) /Ic; 
267-207 
A68= (Izz*(drdrt+drdrn+drdrv+drdrw)+Ixz* (dndrm+dndrt+dndrn+dndrv) )/Ic; 
% 


ATIS O; 

AT Zn 
A73-"5m0(bhe)*tan (the); 
A74— 07 

2/75 07 

А76= 1; 

A172 O: 

Ag o= Cos (pho) tan(tho): 
% 


A81= (Ixz*(drdxdotm+drdxdott+drdxdotn+drdxdotv)... 
+1xx* (dndxdotm+dndxdott+dndxdotn+dndxdotv) )/Ic; 
A82= (Ixz* (drdzdotm+drdzdotn)+Ixx* (dndzdotm+dndzdotn) )/Ic; 
33 (Ixz*(drdgm)+Ixx*(0))/TG; 
AS4= 0; 
A85= (Ixz* (drdydotm+drdydott+drdydotn+drdydotv+drdydotf)... 
+Ixx* (dndydott+dndydotn+dndydotv+dndydotf) ) /Ic; 
A86= (Ixz*(drdpm+drdpt+drdpn+drdpv+drdpw) +Ixx* (dndpt+dndpn+dndpv) ) /Ic; 
АВ1=- 0): 
A88=(Ixz* (drdrt+drdrv+drdrw) +Ixx* (dndrt+dndrv))/Ic; 
% 


% longitudinal plant augmented is X=[u w q theta]' 

Flonaug-[A11 A12 A13 A14;A21 A22 A23 A24;A31 A32 A33 A34; 
A41 A42 A43 A44], 

Plonaug=poly (Flonaug) ; 

Rlonaug=roots(Plonaug) ; 


$ lateral plant augmented is X=[v p phi r psi]' 
Flataug=[A55 A56 A57 A58 0;A65 A66 A67 A68 0; 

A75 A76 A77 A78 0;A85 A86 A87 A88 0;0 0 0 1 0]; 
Plataug=poly(Flataug); 
Rlataug-roots(Plataug); 


% coupled plant 

Amat-[A11 A12 A13 A14 A15 A16 A17 A18 0; 
A21 A22 A23 A24 A25 A26 A27 A28 
A31 A32 A33 A34 A35 A36 A37 A38 
A41 A42 A43 A44 A45 A46 A47 A48 
A51 A52 A53 A54 А55 A56 A57 A58 
A61 A62 A63 A64 A65 A66 A67 A68 
ATA BATA A5 ATG AL ATO 
A81 A82 A83 A84 A85 A86 A87 A88 
000 7007000000 1 О): 


DOO OF O 


Pcoupzpoly (Amat); 
Rcoupzroots (Pcoup); 


% 


B11= dxdblm*dblmddele/m; 
B12= dxdthetom*dthetomddelc/m; 
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B13= dxdalm*dalmddela/m; 
n E eg 


B21- dzdbim”dbimddele/m, 
B22- dzdthetom”dthetomddelc/m, 


B23= 0; 
B24= 0; 
% 


B31= dmdblm*dblmddele/Iyy; 

B32= dmdthetom*dthetomddelc/Iyy; 

B33= dmdalm*dalmddela/Iyy; 

B>4=70; 

% 

B41= 0; 

B42= 0; 

B43= 0; 

B44= 0; 

% 

B51- dydbim”dbimddele/m, 

B52= dydthetom*dthetomddelc/m; 

B53- dydalm”dalmddela/m, 

B54= ( (dydphin*dphinddelp+dyddelv*ddelvddelp+dydthetot*dthetotddelp) /m) ; 
% 

B61- Izz*drdblm*dblmddele/Ic; 

B62= (Izz*drdthetom*dthetomddelc-«Ixz*dndthetom*dthetomddelc)/Ic; 

B63= Izz*drdalm*dalmddela/Ic; 

B64- 
((Izz*(drdphin*dphinddelp+drddelv*ddelvddelp+drdthetot*dthetotddelp) +... 


Ixz* (dndphin*dphinddelp+dnddelv*ddelvddelp+dndthetot*dthetotddelp) ) /Ic) ; 
5 
edz 0 
B22= О 
5-0 
B74- 0 
% 

BSI-Srxz*drdbim*dbimddele/Ic; 

B82= (Ixz*drdthetom*dthetomddelc+Ixx*dndthetom*dthetomddelc) /Ic; 

B83= Ixz*drdalm*dalmddela/Ic; 

B84- 

((Ixz* (drdphin*dphinddelp+drddelv*ddelvddelp+drdthetot*dthetotddelp) +... 


D 
: 
, 
o 
, 
i 


Ixx* (dndphin*dphinddelp+dnddelv*ddelvddelp+dndthetot*dthetotddelp) ) /Ic) ; 
5 
Glonaug=[B11 B12 B13 B14; 
2 1575252) Е21, 
B31 B32 B33 B34, 
B41 B42 B43 B44]; 
Glataug=(B51 B52 B53 B54; 
B61 B62 B63 B64; 
B71 B72 B73 B74; 
B81 B82 B83 B84; 
05050 017 
$ coupled input matrix 
Bmat-[Bll B12 B13 B14;B21 B22 B23 B24, 
B31 B32 B33 B34;B41 B42 B43 B44; 
BO! B53 B53 E54.:B01] B62 B63 B64, 
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ENE], B73. B74-B381 B82 BES B84;0 0.0 0]; 
€ 
xcouple=12/lockno*e/R/ (1+e/3/R); 
% designed damping 
desdmdg=dmdqm+dmdqh+dmdaw; 
desdrdp=drdpm+drdpt+drdpw+drdpv+drdpn; 
desdndr=dndrm+dndrt+dndrv+dndrn; 
% cooper harper pilot rating 
prpitch-desdmdg/Iyy: 
prroll=desdrdp/Ixx; 
pryaw=desdndr/Izz; 
$ control power 
EDPICEN=B31"TYv; 
CDroll-B653*1xx; 
cpyawzB84*Izz; 
CDiDIEcH-Bsde 
Gpirol1-B63” 
cpiyaw=B84; 
% 


save mat temp Amat Bmat 
stab_out_1 
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> 


de JP ge ge dP dP ge oe 


Ctrgrp.m 
C CHO p m 
CALLED BY Cruise.m 
Computes the stability derivatives of the tail rotor in cruise flight. 
Computes the stability derivatives of the NOTAR in cruise flight. 
Uses data loaded in the workspace by JANRAD.M and STAB.M. 
Modified for JANRAD version 6.0 by LT David A. Heathorn 


lO E==1 


$ Compute the stability derivatives of the tail rotor in cruise 


Event. 


dlampdydott=-1/ ((ohmt*Rt) * (1+dctsigdlampt*sigmat/ (2*mut))); 
dydxdott=rho*Abt* (ohmt*Rt) *2*dctsigdmut*dmudxdot; 
dydydottzrho*Abt*(ohmt*Rt)^2*dctsigdlampt*dlampdydott; 
dydpt=dydydott*ht; 

dydrt=-dydydott*lt; 
dydthetotsrho*Abt*(ohmt*Rt)^2*dctsigdthetot; 
drdxdott=dydxdott*ht; 

drdydott-dydydott “ht, 

ardpt=dydpt*ht; 

arart=aydrt*ht; 

drdthetot=dydthetot*ht; 

dndxdott=-dydxdott*lt; 

dndydott=-dydydott*lt; 

dndpt=-dydpt* lt; 

dndrt=-dydrt*lt; 

dndthetot=dydthetot*lt*(-1); 

% 

5 If tail rotor is to be used, zero out NOTAR derivatives: 
% 

dydxdotn=0; dydydotn=0; dydzdotn=0; dydpn=0; dydrn=0; drdxdotn=0; 
d-oycotn-0:d:dz0c6tn-Ü,dropuzü,drdrn-Ü,dudxdotneo,eanaydotnzo, 
dndzdotn=0;dndpn=0; dndrn=0; 

dndphin=0;drdphin=0; dydphins0; 
dnddelv=0;drddelv=0;dyddelv=0; 


pce. t tailrot== 


% 

% Compute the stability derivatives of the NOTAR in cruise flight. 

€ 

0 5*5pho*tuvimaxo2; 

dydxdotn=0; 

dydcsoarszqvin*bn^2*max([(-V/125*1),0]); 

$ downwash blown off circulation control section above 125 ft/sec (75 


kts) 


descardeloar=l; 

acloardpslot=2/pl; 
apslotdemu=dian/ (2*bn) *sqrt (cmun*dian/ (2*hslot))*1.5; 
dcmudvimax--64*hslot/(dian*vimax); 

dvimaxdzdot=1; 

dcsoardswirl=-1/pi; 

dswirldydot=1/v1; 
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dydydotnsdydcsoar*dcsoardswirl*dswirldydot; 


dydzdotn=dydcsoar*dcsoardcloar*dcloardpslot*dpslotdemu*dcmudvimax* dvimax 
dzdot; 


dydpn=dydydotn*hn; 

dydrn=-dydydotn*ln; 

drdxdotnezdydxdotn*hn; 

drdydotn=dydydotn*hn; 

drdzdóen=dydzdotn*ln; 

drdpn=dydpn*hn; 

drornecdvdrmn*hn. 

dndxdotn=-dydxdotn*ln; 

dndydotn=-dydydotn*ln; 

dndzdotn=-dydzdotn*ln; 

dndpn--dydpn*ln; 

dndrn--dydrn*ln; 

dydphin=Ytmaxn/ (pi/2); 

drdphin=dydphin*htn; 

dndphin=-dydphin*ltn; 

% 

% If NOTAR is to be used, zero out tail rotor derivatives: 
% 
dydxdott=0;dydydott=0;dydpt=0;dydrt=0;dydthetot=0;drdxdott=0; 
drdydott=0;drdpt=0;drdrt=0;drdthetot=0;dndxdott=0;dndydott=0; 
dndpt=0;dndrt=0;dndthetot=0; 
mut=0;lambc=0;a6t=0,blst=0;alst=0; locknot=0; 
drdthetot=0;dndthetot=0;dydthetot=0; 


else 
dISp 
disp(' ERROR IN CTRGRP.M') 
asp (7 NO TAIL ROTOR OR NOTAR INSTALLED’ ) 
disp(' CHECK INPUT DATA') 
disp” 59 
disp(’ Press any key to continue...’) 
pause 
end 
% 


% return to CRUISE.M 
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de Dctplots.m 


Dctplots.m 


plots ct/Sigma, ch/sigma, cq/sigma, als and bls 
VERSES 
mu, thetao and lamp 
fits a polynomial to the curve, takes a derivative of the curves 
then evaluates the appropriate parameters for CRUISE.M 


d(ct/sigma), d(ch/sigma), d(cq/sigma), dals and dbis 
VERSES 

dmu, dthetao and dlamp 

uses the pertubation points from CRANK.M about nominal 


dO de AP 00 dP AP dP AP AP oe oe oe ge ge 


polvfitting data to obtain plots tor nel 


de 


Modified for JANRAD version 6.0 by LT. David A. Heathorn 


n-1; 
ectsigmu-polyfit(vmu mu,vctsig mu,n); 
sestsigthetospolyfit(vthetao-to,vcetsig to,n); 
ectsiglamp-polyfit(vlamp la,vctsig la,n), 
5 
sehsigmu=spolyfit(vmu _mu,vchsig_mu,n); 
echsigtheto=polyfit (vthetao_to,vchsig_to,n) ; 
echsiglamp-polyfit(vlamp la,vchsig la,n); 
5 
ecgsigmu=polyfit(vmu_mu,vcgasig_mu,n); 
ecqsigtheto-polyfit(vthetao to,vcqsig to,n); 
ecqsiglamp=polyfit(vlamp_la,vcqsig_la,n); 
$ 
ealsmu=polyfit (vmu_mu, vals_mu,n) ; 
ealstheto-polyfit(vthetao to,vals to,n); 
ealslamp=polyfit(vlamp la,vals la,n); 
% 
eblsmu-polyfit(vmu mu,vbls mu,n); 
eblstheto=polyfit(vthetao to,vbls to,n); 
eblslamp=polyfit(vlamp la,vbls la,n); 
% 
$taking derivatives 
5 
edctsigdmu=derivl (ectsigmu) ; 
edctsigdtheto=derivl (ectsigtheto) ; 
edctsigdlamp-derivl(ectsiglamp); 
5 
edchsigdmu=derivl(echsigmu); 
edchsigdtheto=derivl(echsigtheto); 
edchsigdlamp=derivl(echsiglamp) ; 
% 
edcqsigdmu=derivl (ecqsigmu) ; 
edcqsigdtheto=derivl (ecqsigtheto) ; 
edcqsigdlamp=derivl (ecqsiglamp) ; 
% 
edalsdmu=derivl (ealsmu) ; 
edalsdtheto=derivl(ealstheto) ; 
edalsdlampederivl(ealslamp), 
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5 

edb1sdmu=derivl(eblsmu) ; 
edblsdtheto=deriv1(eblstheto); 
edbisdlampederiv1(ebislamp): 

€ 

% evaluating derivatives 

5 

dctsigdmu=polyval (edctsigdmu, vmu_mu (1,2) ) 
dctsigdtheto=polyval (edctsigdtheto,vthetao_to(1,2) ) 
dctsigdlamp=polyval (edctsigdlamp, vlamp_la(1,2) ) 

% 

dchsigdmu=polyval (edchsigdmu, vmu_mu (1,2) ) 
dchsigdtheto=polyval (edchsigdtheto,vthetao_to(1,2)) 
dchsigdlamp-polyval (edchsigdlamp,vlamp 1a(1,2)) 

€ 

dcqsigdmu=polyval (edcqsigdmu, vmu_mu (1,2) ) 
dcqsigdtheto=polyval(edcqsigdtheto,vthetao_to(1,2)) 
dcqsigdlamp=polyval(edcqsigdlamp,vlamp_la(1,2)) 

% 

daldmu=polyval (edalsdmu,vmu_mu(1,2)); 
daldtheto=polyval (edalsdtheto,vthetao_to(1,2)); 


% Due to poor modeling of flapping find daldlamp by diferintiating 
equation (8) from 

% Gessow and Myers "Aerodynamics of Helicopters" pg 186 eq(8) and assume 
the change 

% in flapping is the same as the change in the tip path plane. 


alnuml=(1/vmu mu(1,2)); 

alnum2-(vctsig mu(1,2)/solidity/- 
a/vmoemu(1,2)) * (mu mu (1,2 2tvlens Ie E 2) 2070)” 
alnum2=2*-vlamp_la(1,2)*alnum2; 
alnum3=(solidity*dctsigdlamp/2/vmu_mu(1,2))*(vmu_mu(1,2)*2+vlamp_la(1,2) 
gə” 

daldlampealnuml-alnum2-alnum3, 


dbldmu=polyval (edblsdmu,vmu_mu(1,2)); 
dbldtheto=polyval (edblsdtheto,vthetao_to(1,2)); 
dbldlamp=polyval(edblsdlamp,vlamp_la(1,2)); 
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8. Dctplott.m 

t Detplott.am 

% 

% plots ct/sigmat 

% VERSES 

$ mut, thetaot and lampt 

$ fits a polynomial to the curve, takes a derivative of the curves 
$ then evaluates the appropriate parameters for CRUISE.M 
% 

% d(ct/sigma) 

% VERSES 

% dmut, dthetaot and dlampt 

% uses the pertubation points from JANRAD about nominal 
% 

% polyfitting data to obtain plots for n=l 


% Modified for JANRAD version 6.0 by David A. Heathorn 


n=l; 

5  gqmut”polyfitİ(vmut vetsigtomute,n): 
Eetsigthetot=polyfit(vthetaot,vctsigt_tot,n); 
ectsiglampt-polyfit(vlampt,vctsigt lat,n); 

€ 

$taking derivatives 

% 

edctsigdmut=derivl (ectsigmut) ; 
edctsigdthetot=derivl (ectsigthetot) ; 
edctsigdlampt=derivl(ectsiglampt) ; 

% 

$ evaluating derivatives 

€ 

dctsigdmut=polyval (edctsigdmu,vmut (1,2)); 
dctsigdthetot-polyval (edctsigdtheto,vthetaot(1,2)); 
dctsigdlampt=polyval(edctsigdlamp,vlampt(1,2)); 
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9, Derivl.m 


% DERIV1.M 

% computes the derivative of a polynomial using first order curve 
% 

% Created for JANRAD version 6.0 by LT David A. Heathorn 


function([deriv] =derivi (polyno) ; 
der=[1 0]; 

d=der.*polyno; 

deriv=d(1,1); 
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10. Figen plotter.m 


$ Eigen ploter.m 


$ M-file called by time freq resp fcn.m to plot eigen values of linear 
model. 


$ Created for JANRAD version 6.0 by LT David A. Heathorn 


global Amat Bmat C u 


figure 
plot(real(eig(Amat(1:8,1:8))),imag(eig(Amat(1:8,1:8))),'kX', 'markersize' 
212) 

title(“Eigen Values of Coupled Matrix A”) 

xlabel('Real Axis') 

ylabel(’Imag Axis’) 

grid 


figure 

plot (real (eig (Amat (1:4,1:4))),imag(eig (Amat (1:4,1:4))),’kX’, ‘markersize’ 
22) 

xlabel (“Real Axis') 

ylabel(’Imag Axis’) 

title('Eigen Values of Uncoupled Longitudinal Matrix A') 

grid 


figure 

plot (real(eig (Amat (5:8,5:8))) ,imag(eig(Amat(5:8,5:8))),'kx', markersize' 
212) 

xlabel('Real Axis') 

ylabel('Imag Axis’) 

title('Eigen Values of Uncoupled Lateral Matrix A') 

grid 
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11. Hmrgrp.m 


Hmrgrp.m 

CALLED BY Hover.m 

Computes the basic main rotor derivatives at a hover 

Computes the stability derivatives of the main rotor at a hover 
Uses data loaded in the workspace by JANRAD.M and STAB.M 


Compute the basic mainrotor derivatives at a hover 


Modified for JANRAD version 6.0 by LT David A. Heathorn 


IP ge ge ge ge ge ge ge ge oe 


dmudxdotz1/ohm/R; 

dlampdzdotzdmudxdot; 
daldmu=8/3*thetao+2*thetal-2*v1/ohm/R; 
dbldmu=4/3*a0; 

dctsigdlamp=inv (8/a+(sqrt(sigma/2)/(sqrt(ctsig)))); 
dcqsigdlampz-a/4*(theta75-2*v1/ohm/R); 

daldq=-16/ (lockno*ohm* (1-e/R) *2) -12*e/R/ (lockno*ohm* (1-e/R)%*3); 
dbldp=daldq; 

daldps1/ohm* (1-(192*e/R/(lockno^2* (1-e/R)^5))); 
dbldg=-daldp; 

dalda=12*e/R/(lockno* (1-e/R) 73); 

dbldb=dalda; 
daldb=-1/(1+((144*(e/R)^2)/(lockno^2*(1-e/R)^6))); 
dblda=-daldb; 
dchsigda=3/2*ctsig*(1-a/18*theta75/ctsig); 
dcysigdb=dchsigda; 
dmdals=3/4*e/R*Ab*rho*R* (ohm*R) *2*a/lockno; 
drdbis-dmdals, 

% 

% Compute the mainrotor stability derivatives at a hover 
% 
dxdxdotm=-rho*Ab* (ohm*R) *2*dchsigda*daldmu* dmudxdot ; 
dxdydotEnm--rho*Ab*(ohm*R)^2*dceysigdb*dbldmu*dmudxdot; 
dxdzdotm= 0; 
dxdqm=-rho*Ab* (ohm*R) *2*dchsigda*daldq; 
dxdpm=-rho*Ab* (ohm*R)*2*dchsigda*daldp ; 

dxdrm=0; 
dxdthetom=-rho*Ab* (ohm*R) *2* (als+im) *dctsigdtheto; 
dxdalm=-rho*Ab* (ohm*R) *2*dchsigda*dalda; 
dxdblm--rho*Ab* (ohm*R)^2*dchsigda*daldb; 
dydxdotm-zrho*Ab* (ohm*R)^2*dcysigdb*db1dmu*dmudxdot; 
dydydotm=dxdxdotm; 

dydzdotm=0; 

dydqm=dxdpm; 

dydrm=0 ; 

dydpm=-dxdqm; 
dydthetom=rho*Ab* (ohm*R) *2* (2*bls) *dctsigdtheto; 
dydalmedxdbim, 

dydbimz-dxdaim; 

dzdxdotm=0; . 

dzdydotm=0; 
dzdzdotm=-rho*Ab* (ohm*R) *2*dctsigdlamp*dlampdzdot; 
dzdpm=0 ; 

dzdqm=0 ; 

dzdrm=0; 
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dzdthetom--rho*Ab* (ohm*R)^2*dctsigdtheto; 
dzabim=0; 
drdxdotm=drdbls*dbldmu*dmudxdot+dydxdotm*hm+dzdxdotm*hm; 
drdydotm=-dmdals*daldmu*dmudxdot+dxdxdotm*hm; 
drdzdotm=dzdzdotm*ym; 
drdqm=drdb1s*dbldq+dydqm*hm; 

drdrm-0; 

drdpm=drdbls*dbldp+dydpm*hm; 
drdthetom=dydthetom*hm+dzdthetom*ym; 
drdalm-drdbis”dbida-dydalm”hm, 
drdbim=drdb1s*dbldb+dydb1m*hm; 
dmdxdotm=dmdals*daldmu*dmudxdot-dxdxdotm* hm; 
dmdydotm=drdxdotm; 

dmdzdotm=dzdzdotm* lm; 
dmdam=dmdals*daldg-dxdgm*hm; 

dmdrm=0 ; 

dmdpm=dmdals*daldp-dxdpm* hm; 
dmdthetom=-dxdthetom*hm+dzdthetom* 1m; 
dmdaim=dmdals*dalda-dxdalm*hm; 
dmdbimedmdals”daldb-dxdbim”hm, 

dndxdotm=0 ; 
dndzdotm=rho*Ab* (ohm*R) “2*R*degsigdlamp*dlampdzdot ; 
dndydotm=0; 

dndqm=0; 

dndpm=0; 

dndrm--2*rho*Ab* (ohm*R)^2*R*cqsig; 
dndthetomerho*Ab* (ohm*R) ^2*R*dcasigdtheto; 

% 

$ return to HOVER.M 
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12. Hover.m 


% Hover.m 

% CALLED BY STAB.M 

% Computes the stability derivatives at a hover. 

% calls the FOLLOWING subroutines to compute stability derivatives 
% 

% HMRGRP 

% HTRGRP 

% TRIM 

% 

% computation of stability derivatives 

% the only derivatives important at hover are main and tail rotor 
format compact 

% evaluate dctsigdtheto dcqsigdtheto dctsigdthetot and dcqsigdthetot 
% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 


global S SC INPUT 1 S SC INPUT 2 S PERF INPUT S PERF OUTPUT H_S_SC_ STAR 
S H SC STAT Amat Bmat 


$ Unstructure input variables 


SZSTABE INPUT 1=5S_ SC INPUT. 1; 
S STAB INPUT 2-S SC INPUT 2, 


unstructure 
unstructure stab input 1 
unstructure stab input 2 


H SC STAT-S H SC STAT.h sc stat; 
H STATUS-S H SC STAT.h status; 

H STATUS1-S H SC STAT.h status1, 
H STATUS2=S H SC STAT.h status2; 
H STATUS3=S H SC STAT.h status3, 
H STATUS4=S H SC STAT.h status; 
H BK=5 H SC STAT.h bk; 

H GOSS H SC STAT.h go; 
HSRUPT-S H SC STAT h rupt: 

H RES-S H SC STAT.h res; 
H_MEN=S_H_SC_STAT.h_men; 


% Turn Stab_on flag on 
STAB ON=1; 
% VARIABLE UNIT CONVERSION 


im=1im/57.3. 
delta3=delta3/57.3; 
thetalt-thetalt/57.3, 
alplov=alplov/57.3; 
alploh=alploh/57.3; 
ih=1n/57 .3; 
alplow=alplow/57.3; 
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iw=1w/57.3% 
swirl=swirl/57.3; 
dblmddele=dblmddele/57.3; 
dalmddela=dalmddela/57.3; 
dthetomddelcedthetomddelc/57.3, 
dthetotddelp=dthetotddelp/57.3; 
sidearm=sidearm*2; 
if sidearm==0 

sidearm=le3; 
end 
dphinddelp=pi/sidearm; 
Sidearm-pi/(sidearm*2); 


uetsig=zeros(1,2); 
veqsig=zeros (1,2); 
vthetao-zeros(1,2); 
vctsigt=ones (1,2); 
ucdsigt-ones(1,2).; 
vthetaot-ones(1,2); 


thetal--twist; 


GW=GW*1.0005; % .5% HIGHER 

Set(H STATUS2,'STRING', 'HOVER ROUTINE') 

set(H STATUSA,'STRING', 'FIRST OF TWO PERTURBATIONS”) 
EIC 

set(H STATUS1, 'STRING', 'START ELAPSED TIME') 

pause(3) 

rim 

% *** Calculation of output parameters from trim *** 


Qrotor=mean (DMpsi) *b; 
solidity=b* (sum(cblade) /length (cblade) ) / (pi*R); 
5  rotor/(Adisk”rho”Vtip”2“R): 
CH=Hrotor/ (Adisk*rho*Vtip“2) ; 
CH sig-CH/solidity; 
secsig(1,2)=CT/solidity; 
550 :G(1,2)-CQ/solidity: 
thetasave-thetao; 
vthetao(1,2)-thetasave-.7*thetal; 
ohm-omega; 
sigma-solidity, 
g=32.174; 
Pp nh; 
2:75 roteel 
Z£Dt-BE”RE”CL: 
BEDE RE*Rt; 
mutzyint/ohmt/Rt; 
sigmat=Abt/At; 
ПЕ—–164-хс9ӱ), 
htzhtd-zcg; 
iede yeg; 
Moe knot=trho at et Resá/Ibt, 
pe-orotor/Le. 
Gregdgt-zTE/(rho*Ati*(ohmtE*Rt)^2)5 
vit-sart(Tt/2/rho/At): 
lampt--vit/ohmt/Rt: 
sst-273”lcocknot”ctsigt/at”3/2”g”Et” 2/.olme Re) 
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thetaot=3/2*(4/at*ctsigt+sqrt(CQ/2))-3/4*thetalt; 
alst=0; 

BESE=0: 

theta75t=thetaot+.75*theta1t; 
VLE=SJEE(TE/2/rho/AC); 
aoat=theta75t+atan(v1t/ohmt/Rt/.7); 
cdt=.006+(aoat*at)*2/pi/Rt/ct; 
phrt-cegrc(cbsgs*sidqmaty62); 
thet=4/at*ctsigt+sqrt (phit) ; 
cqsigt=sigmat/2*(at/2*(thet-phit) *phit+cdt/4); 


vetsigt(l1,2)sctsigt; 

veqsigt (1,2) =cqsigt; 

vthetaot (1,2)=thetaot; 
end 


save stabtemp vctsig vcqsig vthetao thetal vctsigt vcqsigt vthetaot g... 
SESCHENEUIS NN S SC INPUTS2 S PERF .INPUT S.PERP OUTPUT H_S_SC_STAT 
SØHØSCHSSTAT 


clear 
load stabtemp 


SUSTABXINPUT-1-S-SC-TINPUT 1; 
SEETABESTNPUT-2-S SC-INPUT- 2; 


unstructure 
unstructure stab input 1 
unstructure stab input 2 


H SC STAT-S H SC STAT.h sc stat; 
H STATUS-S H SC STAT.h status, 
H STATUS1-S H SC STAT.h status1; 
H STATUS2-S H SC STAT.h status2: 
H STATUS3-S H SC STAT.h status3, 
H STATUS4-S H SC STAT.h statusi4, 
H BK-S H SC STAT.h bk: 

H GO0OsS H SC STAT.h go; 
HERUPT-S A SCESTAT h-crupt.; 

H RES-S H SC STAT.h res; 

H MEN-S H SC STAT.h men; 


$ Turn Stab on flag on 
STAB ON-1; 

$ VARIABLE UNIT CONVERSION 
im=im/57.3; 
delta3=delta3/57.3; 
thetalt=thetalt/57.3; 
alplovsalplov/57.3: 


alploh-alploh/57.3, 
ih=ih/57.3; 
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alplow-alplow/57.3, 
TUTA 
svırl-suvir17577) 
dbimddele=dbimddele/57.3; 
dalmddela-dalmddela/57.3: 
dthetomddelc=dthetomddelc/57.3; 
dthetotddelp=dthetotddelp/57.3; 
sidearm=sidearm*2; 
if sidearm==0 

sidearm=1e3; 
end 
dphinddelp=pi/sidearm; 
sidearm-pi/(sidearm*2); 


set (H_STATUS4, ‘STRING’, ‘SECOND OF TWO TRIM PERTURBATIONS’ ) 

set (H_STATUS1, ’ STRING’, [’RUN ELAPSED TIME IS ’,fix(num2str(toc)),’ 
SECONDS’ } ) 

pause (3) 

Prim 

set(H STATUSA,'STRING', 'PERTURBATIONS COMPLETE - EVALUATING STABILITY 
DERIVATIVES’ ) 

set (H_STATUS1, ‘'STRING’, [’RUN ELAPSED TIME IS “,fix(num2str(toc)),” 
SECONDS’ ] ) 

pause(3) 


Qrotor=mean (DMpsi) *b; 
solidity=b* (sum(cblade) /length (cblade) ) / (pi*R); 
c2=0roGor/(Adisk*rho*Vtip*2*R); 
5 —Hrosor/qAdisk”rho”Vtip”2): 
7577 - of1,10)9“CT/solidity: 
Pagal ))“C0/solidity, 
thetasave-thetao; 
vthetao(1,1)-thetasave-.7“thetal, 
dctsigdtheto-(vctsig(1,1)-vctsig(1,2))/(vthetao(1,1)-vthetao(1,2)); 
dcqsigdtheto=(vcqsig(1,1)-vcqsig(1,2))/(vthetao(1,1)-vthetao(1,2)); 
ohm=omega; 
sigma=solidity; 
A=pi*R*R; 
NE tailrot== 
ADEDERE CE, 
Atc—pi Re Re: 
mut=Vint/ohmt/Rt; 
sigmat=Abt/At; 
lt=ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg; 
Lochnot=rho*at*ct*Rt"4/Ibt; 
BE=OrCEOrF/1C; 
5:7” o” A Colin” Rt) 2), 
MItesqrt(Tt/2/rhbo/At):; 
lampt=-vlt/ohmt/Rt ; 
dotz2/3*locknoGsscüsigt/at-3/25g*Rt^2/(ohmg5RE)^2; 
thetaot=3/2* (4/at*ctsigt+sqrt (C0/2))-3/4*thetalt; 
alst=0; 
eror 
theta75t=thetaot+.75*thetalt; 
vit=sqrt (Tt/2/rho/At) ; 
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aoat-theta75tratan(vit/ohmt/Rt/.7): 
cede ="006+(acat*at)”*2/p1/Rt/ct; 
Bu —oartictsigt”sıgmat/2), 
thet=4/at*ctsigt+sqrt(phit); 
cgsigt=sigmat/2*(at/2*(thet-phit)*phit+cdt/4); 
vetsigt(1,1)=ctsigt: 
vegslar 1,1 )=egs1gt; 
vthetaot(1,1)=thetaot; 
ae-siqgdrhetct-(vefsiat(t,2)-vetsigt(1,1))/(vthetaot(1,2)= 
vthetaot (1,1)); 
dcqsigdthetot=(vcqsigt(1,2)-vcqsigt(1,1))/(vthetaot(1,2)- 
vthetaot(1,1)); 
end 


% CONFIGURATION CALCULATIONS 


theta7=thetao; 
thetao=theta7-.7*thetal; 
ctsig-CT/solidiey: 
charo-CuH/solidrey: 
cossg—CO, solidity: 
altpp=-alphaT; 
Al=-thetalc; 
Bl=-thetals; 
ao=betao; 
vl=mean (vi); 
VEVE; 
% Main rotor 
g=32.2; 
hm-hmd-zcg; 
ym=ymd-ycg; 
lm-lmd-xcg; 
c-(sum(cblade)/length(cblade)); 
Abzc*R**2 
lamp=0; 
mu=0; 
Giles Gi 
f=Afv; 
thetat=4/a*ctsig+sqrt(sigma*ctsig/2); 
icecino-cruo ce € E 4/1Б, 
theta75=thetao+.75*thetal; 
numl=thetao* (8/3+32/45*mu"*3/pi); 
num2=thetal* (2+mu%4/12) ; 
num3=lamp* (2-mu*mu/2) ; 
den1=1+3/2*mu*mu-5*mu“4/24; 
als=mu* (numl+num2+num3)/denl-Bl; 
bls=als*12/locknote/R/ (l+e/R/3) ; 
m-GW/g; 
TESIXX IZZ; 
Es 

% NOTAR 

vlmaxz1.2*v1; % downwash at the boom slots (NOTAR) 

delvmax=pi/4; 

if maxr== 

ddelvddelp=0; 
else 
ddelvddelp-delvmax/maxr; $ verticle fin deflection/maxr 
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end 
ltn=lttnd-xcg; 
ln=ltnd-xcg; 
yn=ytnd-xcg; 
hn-htnd-zcg; 


htn=hn; 
Tu-casig”sigma”rho”A”(ohm”R)”2”R/ltn, 
cmunz.55; % typical value 

bus 5*R: 


hslot=.028*dian/2; 
arn=bn/dian; 
dthetoddelp = 0; 
end 
% trim conditions 
tho=-T* (im+als) /GW; 
pho=- (T*bls+Tt) /GW; 
wo=0; 
vo=0; 
uo=0; 


% STABILITY CALCULATION 

% 

Hmrgrp 

HUTƏGTD 

% 

% computation of A,B,C,D matrices 
% 

ZWIS (dxdxdotm) /m; 

25 — (öxdzdotm)/m: 

A13= (dxdqm) /m-wo; 

A14= -g*cos(tho); 

A15= (dxdydotm) /m; 

A16= (dxdpm) /m; 

2-0: 

A18- (dxdrm) /m-vo, 

% 

RZI= (dzdxdotm) /m; 

A22= (dzdzdotm) /m; 

A23= (dzdqm) /m+uo; 

ET -0 cos (pho) sin(tho): 
A252 (dzdydotm+dzdydott) /m; 
A26= (dzdpm)/m-vo; 

BZ = -qg*sin(pho)*cos(tho); 
A28= (dzdrm) /m; 

% 

A31= (dmdxdotm) /Iyy; 

acz= (amazdotm) /lyy; 

A33= (dmdqm) /Iyy; 

A342 0; 

A35= (dmdydotm+dmdydott+dmdydotn) /Iyy; 
A36= (dmdpm) /Iyy; 


2:- 0, 

A38= (dmdrm+dmdrt+dmdrn) /Iyy; 
% 

Bap 

2: 


A432 cos(pho); 
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nado; 


A45—.07 

A462 0; 

А47=40, 

A482 -sin(pho); 
% 


A512 (dydxdotm)/m; 

A522 (dydzdotm-«dydzdotn)/m; 

A53- (dydqm)/m; 

AS4=——o* sain (pho) *sin (tho) ; 

A55= (dydydotm+dydydott+dydydotn) /m; 

A56= (dydpm+dydpt+dydpn) /m+wo; 

A57= g*cos (pho) *cos (tho); 

A58= (dydrm+dydrt+dydrn) /m-uo; 

% 

A61= (Izz* (drdxdotm+drdxdotn) +Ixz* (dndxdotm+dndxdotn) ) /Ic; 
A62= (Izz* (drdzdotm+drdzdotn) +Ixz* (dndzdotm+dndzdotn) )/Ic; 
A632 (Izz* (drdqm)-«Ixz* (dndqm))/Ic; 

A64= 0; 

A65= 

(Izz* (drdydotm+drdydott+drdydotn) +Ixz* (dndydotm+dndydott+drdydotn) ) /Ic; 
A66= (Izz* (drdpm+drdpt+drdpn)+Ixz* (dndpm+dndpt+dndpn) )/Ic; 
A67= 0; 

A68= (Izz* (drdrm+drdrt+drdrn) +Ixz* (dndrm+dndrt+dndrn) ) /Ic; 
% 


271-:0) 

AS MO 

A732 sin(pho) “tan(tho) : 
Ana 0: 

A752 0; 

Aloe 1: 

277— 0” 

A782 cos(pho)*tan(tho); 
€ 


A81= (Ixz* (drdxdotm+drdxdotn) +Ixx* (dndxdotm+dndxdotn) )/Ic; 
A82= (Ixz* (drdzdotm+drdzdotn) +Ixx* (dndzdotm+dndzdotn) ) /Ic; 
A83= (Ixz* (drdqm) +Ixx* (dndqm) ) /Ic; 
A84= 0; 
A85= 
(Ixz* (drdydotm+drdydott+drdydotn) +Ixx* (dndydotm+dndydott+dndydotn) ) /Ic; 
A86= (Ixz* (drdpm+drdpt+drdpn) +Ixx* (dndpm+dndpt+dndpn) ) /Ic; 
A872 0, 
A88= (Ixz* (drdrm+drdrt+drdrn) +Ixx* (dndrm+dndrt+dndrn) ) /Ic; 
% 
% longitudinal plant augmented X=[u w q theta] 
Flonaug=[A11 A12 A13 A14;A21 A22 A23 A24;A31 A32 A33 A34; 
A41 A42 A43 A44]; 
Plonaug=poly (Flonaug) ; 
Rlonaug=roots (Plonaug) ; 
% 
% Lateral plant augmented with X=[v p phi r psi]’ 
Flataugz- [A55 A56 A57 A58 0;A65 A66 A67 A68 0; 
A75 A76 A77 A78 0;A85 A86 A87 A88 0;0 O O 1 0]; 
Plataug=poly(Flataug); 
Rlataug=roots(Plataug); 
% coupled plant 
Amat=[A11 A12 A13 A14 A15 A16 A17 A18 0; 
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A21 A22 A23 A24 A25 A26 A27 A28 
A3l A32 A33 A34 AI5S A36 AS AB 
A41 A42 A43 A44 A45 A46 A47 A48 
A51 A52 A53 A54 A55 A56 A57 A58 
A61 A62 A63 A64 A65 A66 A67 A68 
A71 A72 A73 A74 A75 A76 A77 A78 
A81 A82 A83 A84 A85 A86 A87 A88 


0 


wa ҹә Ng ə 


SISTE OO O 


=. 


DTO ın 


Pcoup=poly (Amat) ; 
Rcoup=roots (Pcoup) ; 


% 

Bll- 
B12= 
B13= 
B14- 
% 

B21= 
B22= 
B23= 
B24= 
% 

B31- 
B32= 
B33= 
B34= 
% 

B41= 
B42= 
B43= 
B44= 
% 

B51= 
B52= 
B53= 
B54= 
% 

B61= 
B62= 
B63= 
B64= 


dxdbim”dbimddele/m, 
dxdthetom*dthetomddelc/m; 
dxdalm*dalmddela/m; 

0; 


dzdbim”dbimddele/m, 
dzdthetom”dthetomddelc/m, 
0; 

O 


dmdblm*dblmddele/ Iyy; 
dmdthetom*dthetomddelc/Iyy; 
dmdalm*dalmddela/Iyy; 

(dmdphin* dphinddelp+dmdthetot*dthetotddelp) /Iyy; 


dydbim”dbimddele/m, 

dydthetom”dthetomddelc/m, 

dydalm”dalmddela/m, 
(dydphin”dphinddelp-dydthetot”dthetotddelp) /m, 


Izz*drdblm*dblmddele/Ic; 
(Izz*drdthetom*dthetomddelc+Ixz*dndthetom*dthetomddelc)/Ic; 
Izz*drdalm*dalmddela/Ic; 

(Izz* (drdphin*dphinddelp+drdthetot*dthetotddelp) +... 


Ixz* (dndphin*dphinddelp+dndthetot*dthetotddelp) )/Ic; 


% 

B71= 
B72- 
B73- 
B74= 
% 

B81= 
B82= 
B83= 
B84= 


Ixz*drdblm*dblmddele/Ic; 
(Ixz*drdthetom*dthetomddelc+Ixx*dndthetom*dthetomddelc) /Ic; 
Ixz*drdalm*dalmddela/Ic; 

(Ixz* (drdphin*dphinddelp+drdthetot*dthetotddelp)+... 


Ixx* (dndphin*dphinddelp+dndthetot*dthetotddelp))/Ic; 


% 


Glonaug=[B11 B12 B13 B14; 
EAB BZB 
Eodunb 555547 
B41 B42 B43 B44]; 
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5 
Glataug=[B51 B52 B53 B54; 
B61 B62 B63 B64; 
B71 B72 B73 B74; 
B81 B82 B83 B84; 
0205000017 
$ coupled input matrix 
Bmat=[B11 B12 B13 B14;B21 B22 B23 B24, 
B31 B32 B33 B34;B41 B42 B43 B44; 
ВЕЈТИВ 853° E54; 56 B62 Bos B64; 
B/leBi2 B/S B/1:B0d B82 B83 B84;0 0 0 0]; 
5 
$ cross coupling 
xcouple=12/lockno*e/R/ (1+e/3/R); 
$ designed damping 
desdmdq=dmdqm; 
desdrdp=drdpm+drdpt+drdpn; 
desdndr=dndrm+dndrt+dndrn; 
% now cooper harper pilot rating 
prpitch-desdmdq/lyy: 
prroll=(drdpm+drdpt+drdpn) /Ixx; 
pryaw=desdndr/Izz; 
$ control power 
epeitehrsBsl”iyy, 
cproli-B63*T13xx; 
cpyaw-B84*Izz; 
GPIBIEEN=R31; 
cpiroll=B63; 
cpiyaw=B84; 
% 
thetao-theta7, 


save mat temp Amat Bmat 


stab out 1 
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13. Htrgrp.m 


1Herorp.m 

$ CALLED BY Hover.m 

$ Computes the basic tail rotor or NOTAR derivatives at a hover 

$ Computes the stability derivatives of the tail rotor or NOTAR at a 
hover 

OR 

Computes the stability derivatives of the NOTAR at a hover 


Uses data loaded in the workspace by JANRAD.M and STAB.M 


Modified for JANRAD version 6.0 by LT David A. Heathorn 


1 00 00 AP AP AP dP ge 


BELasdlrotz- 
€ 
% Compute the basic tail rotor derivatives at a hover. 
€ 
dmudxdottz1/ohmt/Rt; 
dlampdydottz-dmudxdott; 
daldmut=8/3*thetao+2*thetal-2*v1/ohmt/Rt; 
dbidmut=4/3*aot; 
dctsigdlampt=inv(8/at+(sqrt(sigmat/2)/(sqrt(ctsig)))); 
dcąsigdlampt=-at/4*(theta75t-2*v1t/ohmt/Rt); 
daldat=0; 
doldptz0; 
daldpt=0; 
ABlIJqt=0; 
daldat=0; 
dbldbt=0; 
daldbt=0; 
dbldat=0; 
dchsigdat-3/2*ctsig*(1-at/18*theta75t/ctsig); 
dcysigdbt=dchsigdat; 
dmdalst=0; 
Srdblstz0; 
% 
% Compute the tail rotor stabitity derivatives at a hover 
% 
evaydott=rho*Abt* (ohmt*Rt) ~2*dctsigdlampt <*dlampdydote; 
dydpt=dydydott*ht; 
dydrt--dydydott “lt, 
dydthetot=rho*Abt* (ohmt*Rt) *2*dctsigdthetot; 
drdydott=dydydott*ht; 
urdrt-dydrt*hb5t; 
Adrdpt-dydpt “ht, 
drdthetotzdydthetot*ht; 
dmdydottzrho*Abt*(ohmt*Rt)^2*Rt*dcqsigdlampt*dlampdydott; 
dmdrtz-dmdydott*lt; 
dmdthetot=rho*Abt* (ohmt*Rt) *2*Rt*deqsigdthetot; 
dndydott--dydydott”lt, 
dndpt--dydpt”lt, 
dndrtz-dydrt*lt; 
dndthetot--dydthetot”lt, 
€ 
$ If tail rotor is used, zero out NOTAR derivatives: 
€ 
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dydxdotn=0; dydydotn=0; dydzdotn=0; dydpn=0; dydrn=0; 
dzdydottz0; 
dradxdotn=0;drdydotn=0;drdzdotn=0;drdpn=0;drdrn=0; 
dmdydotn=0;dmdrn=0; 
dndxdotn=0;dndydotn=0;dndzdotn=0;dndpn=0;dndrn=0; 
amdphin=0;drdphin=0;dńdphin=0;dydphin=0; 

elseif tailrot==3 


% Compute the NOTAR derivatives at a hover. 


% 
quains 5*rhobwinmsse25 
dydxdotn=0; 


dydcecar=qvlin*bn62; 

dcsoardcloar=1; 

deloardpslot=2/pi; 
dpslotdemu=dian/ (2*bn) *sqrt (cmun*dian/ (2*hslot))*1.5; 
dcmudvimax--64*hslot/(dian*vimax); 

dvimaxdzdot=1; 

dcsoardswirl=-1/pi; 

dswirldydot=1/v1; 
dydydotn=dydcsoar*dcsoardswirl*dswirldydot; 


dydzdotnedydcsoar”dcsoardcloar”dcloardpslot”dpslotdcmu”dcmudvimax”dvimax 
dzdot; 
dydpn=dydydotn*hn; 
dydrn=-dydydotn*ln; 
drdxdotn=dydxdotn*hn; 
drdydotn=dydydotn*hn; 
drdzdotnedydzdotn”ln, 
drdpn=dydpn*hn; 
drdrn=dydrn*hn; 
dmdydotn=0; 
dmdrn--dmdydotn”ln, 
dndxdotn--dydxdotn”ln, 
dndydotn=-dydydotn*ln; 
dndzdotn=-dydzdotn*ln; 
dndpn--dydpn”ln, 
dndrn=-dydrn*ln; 
dydphin=Ytmaxn/ (pl/Z); 
drdphinsdydphin*hen: 
dmdphin=0; 
dndphin=-dydphin*ltn; 
% 
$ If NOTAR is to be used, zero out tail rotor derivatives: 
5 
dydydott=0;dydpt=0;dydrt=0;dydthetot=0;drdydott=0; 
azdvdott=0: 
drdrt=0;drdpt=0;drdthetot=0; 
dmdydott=0;dmdrt=0; dmdthetot=0; 
dndydott=0;dndpt=0;dndrt=0;dndthetot=0; 
lam5t=0;mut=0;aot=0,blst=0;alst=0;,lócknot=0; 
dmdthetot=0;dndthetot=0;drdthetot=0;dydthetot=0; 


else 
dispÜ”””) 
disp(' ERROR IN HTRGRP.M') 
disp (* NO TAIL ROTOR OR NOTAR INSTALLED’ ) 
disp(’ CHECK INPUT DATA’ ) 
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Әазр1 ди 
disp(’ Press any key to continue. 
pause 

end 

% 

$ return to HOVER.M 
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14. Imp plotter.m 


$ Imp plotter.m 


3 M-file called by time freq resp fcn.m to plot the impulse response 
$ for specified input and output. 


$ Created for JANRAD version 6.0 by LT David A. Heathorn 
global Amat Bmat u C T STOP T INC 


Dos 

t starec0” 

t irceT TNC” 

kt SEOp-T STOE: 


t=t_start:t_inc:t_stop; 
ıt ə 


for j=1:length(C) 
PEC —- 
figure 
[numodendzss2tf(Amat,Bmat(:,1),C(3,:).D); 
[y]=impulse(num,den,t); 
plot(t,y) 
xlabel (‘time (sec) ’) 
grid 
if j== 
title('Response of x-velocity (u) to Longitudinal Cyclic 
Unit Impulse Input') 
ylabel ('Velocity (ft/sec)') 
elseif j== 
title('Response of z-velocity (w) to Longitudinal Cyclic 
Unit Impulse Input') 
ylabel (‘Velocity (ft/sec) ’) 
elseif j== 
title(’Response of Pitch Rate (q) to Longitudinal Cyclic 
Unit Impulse Input’) 
ylabel(’Pitch Rate (rad/sec)') 
elseif j== 
title(’Response of Pitch Angle (theta) to Longitudinal 
СусТас Unit Impulse. Input”) 
ylabel('Pitch Angle (rad.)') 
elseif j== 
title('Response of y-veloctiy (v) to Longitudinal Cyclic 
Unit Impulse Input') 
ylabel('Velocity (ft/sec)') 
elseif j== 
title(’Response of Roll Rate (p) to Longitudinal Cyclic Unit 
Impulse Input”) 
ylabel(’Roll Rate (rad/sec) ’) 
elseif j== 
title(’Response of Roll Angle (phi) to Longitudinal Cyclic 
Unit Impulse Input’) 
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ylabel('Roll Angle (rad) ') 
elseif j== 


title('Response of Yaw Rate (r) to Longitudinal Cyclic Unit 


Impulse Input') 
ylabel('Yaw Rate (rad/sec)') 
elseif j-- 


title('Response of Yaw Angle (psi) to Longitudinal Cyclic 


Unit Impulse Input') 
ylabel('Yaw Angle(rad)') 
end 
end 
end 


elseif u(2)== 


tor j=l:leneth(C) 
1505731 


figure 
(ńum,dem]=ssztEfAmat,Bmat(:,1),€(],:),B); 
(yj=impulse(num,den,t); 
plots y) “ 
xlabel(”time (sec)”) 
grid 
xlabel( time (sec)') 
иси 
title('Response of x-velocity (u) to Collective Unit Impulse 
input”) 
ylabel('Velocity (ft/sec)') 
elseif j==2 
title('Response of z-velocity (w) to Collective Unit Impulse 
input”) 
ylabel('Velocity (ft/sec)') 
elseif == 
title(’Response of Pitch Rate (q) to Collective Unit Impulse 
Hüput”) 
ylabel(”Pitch Rate (rad/sec)”) 
elseif j==4 
title('Response of Pitch Angle (theta) to Collective Unit 
Impulse Input') 
ylabel(’Pitch Angle (rad.)’) 
elseif j== 
title(’Response of y-veloctiy (v) to Collective Unit Impulse 
Input "') 
ylabel(”Velocity (ft/sec)”) 
elseif j== 
title('Response of Roll Rate (p) to Collective Unit Impulse 
input”) 


ylabel('Roll Rate (rad/sec)') 
elseif j-- 


title('Response of Roll Angle (phi) to Collective Unit 


Impulse Input') 
ylabel('Roll Angle (rad)') 
elseif j== 


title('Response of Yaw Rate (r) to Collective Unit Impulse 


input”) 
ylabel('Yaw Rate (rad/sec)') 
elcesfoy- 
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title('Response of Yaw Angle (psi) to Collective Unit 
Impulse Input') 
ylabel('Yaw Angle(rad)') 
end 
end 
end 


elseif u(3)==1 
for jel:length(C) 
if C(j,j)==1 
figure 
[num,den]=ss2tf(Amat,Bmat(:,1),C(j,:),D); 
[y] =impulse (num, den, t); 
PIOE(E,Y) 
xlabel(”time (sec)”) 
grid 
title('Response of x-velocity (u) to Lateral Cyclic Unit 
Impulse Input') 
ylabel('Velocity (ft/sec)') 
elseif j== 
title(’Response of z-velocity (w) to Lateral Cyclic Unit 
Impulse Input’ ) 
ylabel(’Velocity (ft/sec) ’) 
elseif j== 
title(’Response of Pitch Rate (q) to Lateral Cyclic Unit 
Impulse Input’) 
ylabel('Pitch Rate (rad/sec) ’) 
elseif j== 
title(’Response of Pitch Angle (theta) to Lateral Cyclic 
Unit Impulse Input’) 
ylabel('Pitch Angle (rad.)’) 
elseif j==5 
title(’Response of y-veloctiy (v) to Lateral Cyclic Unit 
Impulse Input’) 
ylabel(’Velocity (ft/sec) ’) 
elseif j== 
title(’Response of Roll Rate (p) to Lateral Cyclic Unit 
Impulse Input’) 
ylabel(’Roll Rate (rad/sec) ’) 
elseif j== 
title(’Response of Roll Angle (phi) to Lateral Cyclic Unit 
Impulse Input’) 
ylabel('Roll Angle (rad)') 
elseif j==8 
title(’Response of Yaw Rate (r) to Lateral Cyclic Unit 
Impulse Input’) 
ylabel('Yaw Rate (rad/sec)') 
elseif j==9 
title(’Response of Yaw Angle (psi) to Lateral Cyclic Unit 
Impulse Input’) 
ylabel('Yaw Angle(rad)') 
end 
end 
end 
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elseif u(4)==1 


for jsluLengthic) 
He e Seal 


figure 
[num, den] =ss2tti(Amaty brat’: ,1)4 CT] aa 0) 
[y]=impulse (num, den, t) ; 
plott. y) 
xlabel (time, (sec 
grid 
El 
title('Response of x-velocity (u) to Pedal Unit Impulse 
Input') 
ylabel('Velocity (ft/sec)') 
elseif j== 
title('Response of z-velocity (w) to Pedal Unit Impulse 
müput”) 
ylabel('Velocity (ft/sec)') 
elseif j== 
title('Response of Pitch Rate (q) to Pedal Unit Impulse 
HƏDUL”) 
ylabel(’Pitch Rate (rad/sec) ’) 
elseif j== 
title(’Response of Pitch Angle (theta) to Pedal Unit Impulse 
Enputf') 
ylabel('Pitch Angle (rad.)’) 
elseif j== 
title(’Response of y-veloctiy (v) to Pedal Unit Impulse 
input”) . 
ylabel('Velocity (ft/sec)') 
elself jss 
title('Response of Roll Rate (p) to Pedal Unit Impulse 
put) 
ylabel('Roll Rate (rad/sec)') 
elseif j==7 
title(’Response of Roll Angle (phi) to Pedal Unit Impulse 
unput”) 
ylabel(’Roll Angle (rad)’) 
elseif j==8 
title(’Response of Yaw Rate (r) to Pedal Unit Impulse 
input”) 
ylabel(’Yaw Rate (rad/sec) ’) 
elseif j== 
title(’Response of Yaw Angle (psi) to Pedal Unit Impulse 
set 7 / 
ylabel('Yaw Angle (rad) ') 
end 
end 
end 
end 
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15. Save con.m 


function save, con() 

This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


TO re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


de JP AP 00 00 dP OP oe 


ge 


GUI screen to indicate output files have been saved 

$ Created for JANRAD version 6.0 by LT David A. Heathorn 
load save con 

global H SAVE CON 


H SAVE CONE: (15 re Color". [0.8 0.2.0.8], ... 
'Colormap' ,mat0, 
"Name”,”File Save Confirmation', 
"Nube little cofi 
'PointerShapeCData',matl, ... 
"Position (1119770 435 1931, 
"Tag 063 re 

b — Vicontrol (Parent. ,H SAVE CON, 
"UAE molnts'. ... 
*Backerounacolon (0.752941 (0.752941 0.752941), 
'Fontsaze SN... 
ee (65 2545.75 19645 601, 
'String’,’Input and Output Files Saved.’, 
‘Style’, ’text’, 4 
"Tag". oscatieTrextl"); 


assignin('base','H SAVE CON',H SAVE CON); 
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16. Sc save.m 


function sc, save() 

This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


de de 00 ge ge ge ge ge 


ge 


GUI screen to save input and output of Stability and Control Module 
% Written for Janrad version 6.0 by LT David A. Heathorn 


load sc save 
global H datainl H dataout1 H SC SAVE 


ЈИ СИСАЈЕ = TZigure( “Color”, 10.8 0:6 0-81. 
"Colormap” ,mat0, 
'Name','Save Input and Output', 
"NumberTitle',"'off', : 
PO er ShapecData' EU z 
'Position” , [120 342 428 198), 
"Nag" Ergl”); 
Bb = uicontrol('Parent',H SC. SAVE, 
ness “points” SE 
EE 10 T52D41 0. 75294170775294117 
 Posikxer",|25.5 110025 158 17. 25]e 
^String',"Save all input data at”, 
style”, “text”, : 
"maq , StaticTextl”): 
pi="uicontrol ('Parent'*,H_SC_SAVE, 
Monts’, “points ә 
EN nO . 752941 D-75294]100- 752921937 
75653” 125.5084. 75 138 1972515 
"String'.'Save all output data as a, 
style”, 55: 
' Tag’ steere иЈ 
7— E ee Parent',H SC SAVE, 
auni eS points”, —-- 
"BackgroundColor',[0.752941.0.752941 0-752941] 
"Pos tion. [2541:25 111 45 15]. 
Sering in mat? 
‘Style’, “65 
"Tag" EE EE ) 
bsc uicontrol('Parent',H.SC.SAVE, 
“Units”, poines” pis 
Fe dCalor” О: 752941 0. 752941 "02752940 
Position [252 2587 4511510 
String”, out mat”, 
“Geyle”, text”, : 
"Tag. “StaticText2”), 
HR datainl = uicontrol(' Parent” ,H SC SAVE, 
‘Unies, points” 


b 


uscckoroundColor', El 1 11, w 
posi conum n 109.5 75 16.5], 
112. 
‘Style’ El 
—.. 
COA BET? |. 
75:71171 5757 Str EL 7 


geet tHsdataoubls String '.qet (H datain!” "Sing" "MN: VE 


'HorizontalAlignment','right', 
‘Tagi, Tet ld) 
H dataout1 = At Parent” ,H SC SAVE, 

NETT PES "pDomts' ^ - 

7. dək 5. 151, 
“SECFING" "m 

25:5-. B 
"HerizontalAlıgnment”, right”, 

"ram StaticTextel”): 

b s uicontrol('Parent',H. SC SAVE, 

“Units points” 

"Font ze” 18, .. 

“Ece tion” 75.5 32. 25 98:25. 29251, 
“String”, “Save” p 
'Callback','sc, save fcn save' 

‘Tag Pushbutton)’ );> 

b 2 uxcontrol(Parent',H SC SAVE, 

AUNES / Eoines” 

PFOHESize” 18, ... 

“Position 1291 30 96:25 29.25], 
‘String’, ‘Continue’ = 
'Callback^,'scssave fcn cont”. 
"Tag", “Pushbuttonl ”): 


assignin('base','H datainl',H datainl); 


assignin('base','H dataoutl',H dataoutl); 
assignin('base','H SC SAVE',H SC SAVE); 
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17. 


sc save fcn.m 


function sc. save. fcn(Action) 


% 
% 


Switchyard Callback for sc_save.m 
Written for JANRAD version 6.0 by LT David A. Heathorn 


global H PERF OUT S USER INPUT S PERF INPUT S PERF OUTPUT S MATR VEC... 
H datainl H dataoutl H SC SAVE H SAVE CON ... 
H outputfile H vecfile H inputfile OUT COUNT H SAVE S STAB INPUT Amat 


Bma 


iz 


tf nargin 
switch Action 


end 


case 


“cenz: 


Close (H SC. SAVE) 

close (H SAVE CON) 

S PERF INPUT-S USER INPUT, 
return 


case 


end 


'save' 


A=Amat(1:8,1:8); 

BzBmat(1:8,1:4); 

filenamel=get(H_datainl,'String'); 
filenamela=[filenamel ' in']: 

eval(['save ',filenamela,' S USER INPUT S STAB INPUT Ј) 
unstructure3 

filename2=[filenamel ” out”), 

eval(['save ',filename2,' A B']) 

save con 
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18. sc status.m 


function sc, status() 

This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


de oe oe oe ge oe oe oe 


do 


Status screen for Stability and Control Computation 
% Written for JANRAD version 6.0 by LT David A. Heathorn 


load sc status 
global S H SC STAT 


H SC STAT = figure('Units','normalized', 
Colon PO 870358 0.8), 
“Colormap mator ~. 
‘Name’ Em & Control Status’ 
"NumberTiti. OFE, 
SES DOGS pr Mati, ss 
"Position? k0. 00125 0.045 0. 9975 0.89], 
"Tag Figl' 
bs dicentroll Parent',H SC, STAT, 
‘Unites’, normalized’, .. 
a Au. 752941 0:75294120:752941|, 
“Position”, [0.10616 0.190385 0. 802097 0.767308], 
“Style”, “Frame. 
"Tag”, Framez”): 


H STATUS3 = uicontrol('Parent',H_SC_STAT, 
"Ungts'.^normalized', . 
‘BackgroundColor’, [0. 752941 00752941 0.752941]; 
“Pontsize 012, .V. 
Fn BOTA. 
"Position 1012 1664” 0, 836538 OSAADS OT NO О05:84521, 
| M em and Control Analysis Status Box', 
"Style. “text”, : 
mag  ”"StåticTextl'): 

H STATUS1 s uicontrol('Parent',H SC STAT, 
"Units, normalized”. . 
“"E-cigroundeolor ,10: 752941 ors TE 
“EFoneSize” .,12, .. 
5, "bold", ə 
Position, [0.279161 0.678846 0.439056 0.134615], 
“Style”, text", = 
“Tag”, StaticText2”): 

H STATUS2 - uicontrol('Parent',H SC STAT, 
“Unta”, normalızed”, . 
oo lər” AOS 752941 04452541 (0. 152941], 
"HOntOİZ€e” 12. S 
ти "bold. > 
"FPositfon” ,10:261762 0. 526923 0545010200 140385), 
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"Style: tese", 
"Tag" Stati oTextav) | 


H_STATUS = UXOR LG Parent',H SC STAT, 


“Units” “normalized a 

‘BackgroundColor [o 752941 0. 752947120. 752941]7 
"FontSize”120 

'FontWeight', 510 = 

"Position 84704000 369231 OL 43381400515 I. 
"Style" "téxe 

‘Tag’ Гә 7 


15 TSTUS24 € ulconterol(“Parent”,H SC STAT, 


BERUB 


HERES 


H MEN 


‘Units’, normalized", . 

*ВасКогоппаСоТогт”, |0. 752941 Ü 752941 0752241177 
"Fontsize” Ee 

'FontWeight', polan GER 

Position’, [0.281782 04203846 (0.433814 0. 15192315 
“Style , text”, : 

"Tag sStaticText5'); 

urcontrol(" Parent", NÅ SC STAT, 
'Units','normalized', : 

iCallbacke ,' se anal. fen back’) 

"Fontsize" 12 .. 

oa weigh pold’. Ren 

«Pesten „[10-.070785770306470- 17857 308072] 
#Sering!, << Back’, : 

“Tag PUSRBUECONN*); 

ugscontrol('Parent',H- SC STAT, 

Unies oS normalized’; 

Callback", 'global S H. SC “STAT? sc status fen anal”, 
iFOnESİZepl2.u-.. 

EPonbelght: bold”, 150 

“Posicion 10 2021786 0.0615353 0.178571 040721]: 
'String','Analyze' 

“Taq”, Pushbutteonz”)?” 

— uzreonerol(” Parent ,H SC STAT, 

‘Units. normalized’; 

“Callback! sc anal Ren interrupt', 

"Enable, "OFE", 

"FOnESİZeƏ”.12, .. 

әд "bold", 5 

"Eosition” /1(0.528571 0:0613553 0:1796571420-07217 
2555ring” ) Interrupe”, 

"lag, PuSŃhbuUtton3"); 

— uiıcontrol(”Parent”,H.SC.STAT, 

unitesi “norma lized” = 

'Callback','sc anal. fcn resume' 

"Enable” off”, 

"kontrize”?120 

“Foneyeiğib:, d Rd 57. 

Posen 1077755295 7:070612357 0176527100 072) 
“String”, “Resume” nG 

“Tag. * mishbutton4ć x 

E heen Parent',H SC, STAT, 

'Label','JANRAD Options' 

Tag ^uimenutl'^); 


€ = uimenu('Parent',H MEN, 


#Callback se anal ten quie”, 
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ee E 


‘Label’, ‘Quit JANRAD’ Pa 
"Tag", 'JANRAD 27 nen, JE 
uimenu (' —. UNEN 6 
'Callback','sc anal, fcn return' 
'Label','Return to Begining', .. 
‘Tag’, ’JANRAD 777570” 
- uimenu('Parent',H MEN, ... 
#@allback"”,” se status fcn delta input”, 
‘Label’, ’Change Input Parameters’, ... 
57:02 <SubBuimenul"); 
uimenu('Parent',H MEN, ... 
"Callback”, scostatus2icn about”, ... 
Label”, “About Janrad 98 ...', 
Separator , On , ..- 
'Tag','Subuimenul'); 


.H SC STAT.h sc statz-H SC STAT; 
Un SC. STAT h statuszH STATUS: 

HÅ SC STAT.h statusl-H.STATUSİ, 
—H SC STAT.h status2-H STATUS2, 
H SC STAT. h status3-H STATUS3: 
_H_SC_STAT.h_status4=H_STATUS4; 
BR SC. STAT.h bk2H BK: 

JH SC STAT.h go-H GO; 

.H SC STAT horupte-H RUPT: 

 H SC STAT.h res=H RES; 

HÅ SC STAT.h men=H MEN; 
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19. sc status fcn.m 
function sc status, fcn(Action) 


$ Switchyard Callback for sc. status.m 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


global  S H SC STAT S PERF INPUT S STAB INPUT 1 S STARSINENT 


$ load input. param 

H SC STAT-S H SC STAT.h sc stat; 
HØSTATUS=S H SC STAT.h status, 
Н STATUS=S H SC STAT.h statusl; 
H STATUS-S H SC, STAT.h, status2; 
1 :.TUSeS H SC STAT.h status35: 
H STATUS-S H SC STAT.h status4; 
H BK-S H SC STAT.h bk; 

H GO-S H SC STAT.h go: 

Н RUPT=5 H SC STAT.h rupt; 

H RES-S H SC, STAT.h res; 

H MEN-S H SC, STAT.h men; 


if nargin, 
svitch Action 


case “back” 
stability control Input 2 
close(H SC STAT) 

case 'anal' 
set (H_GO, 'Enable','off'); 
set (H_RUPT, 'Enable','on'); 
set(H BK,'Enable','off'); 
set(H RES,'Enable','off'); 
set(H MEN,'Enable','off'); 


if S PERF INPUT.Vinf«20 
Hover 

elseif S PERF INPUT.Vinf 5-20 
Cruise 

end 


close(H, SC, STAT) 


case 'interrupt' 
set(H, GO, 'Enable','off'); 
set (H_RUPT, ’Enable’,’off’); 
set(H BK,'Enable','off'); 
set(H RES,'Enable','on'); 
set(H MEN,'Enable','on'); 
uiwait; 

case 'resume' 
set(H GO,'Enable','off'); 
set(H RUPT,'Enable','on'); 
se. Enable”, “GCfF'): 
set (H RES, 'Enable','off'); 
set(H MEN, 'Enable','off'): 


125 


uiresume; 

case 'quit' 
Guit_gui 

case 'return' 
close (H SC STAT) 
clear all 
janrad98 

case 'delta input' 
close (H SC STAT) 
stabilty control input 1 

case 'about' 
about janrad 

end 

end 
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20. Stab calc la.m 


$ Stab calc la.m 


% Calculates change in CT CH CQ als bls with respect to change in 
inilow ratio. 


% Written for JANRAD version 6.0 - LT David A. Heathorn 
global RADSPC VAL NL TWIST VAL NEW AUX VAL FIX TPP VAL NEW TPP 
S PERF OUTPUT lamdaT trim 


set (H STATUS,'String','EXECUTING ROTOR DERIVATIVE ROUTINE') 
set(H STATUS1,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS' ]) 
pause(3) 
lamdasave-lamdaT trim 
Eon kkz1-3 
LE kk== 
lamda_prime=lamdasave-(.5*lamdasave) ; 
n— 1. 
vlamp la(1,n)--lamda prime; 
elseif kk--2 
n=2; 
lamda_prime=lamdasave; 
vlamp_la(1,n)=-lamda_prime; 
else 
lamda_prime=lamdasave+(.5*lamdasave) ; 
n=3; 
vlamp_la(1,n)=-lamda_prime; 
end 
unstructure2 
thetalc=thetalc/57.3; 
thetals-thetals/57.3; 
thetao-thetao/57.3; 
alphaT-alphaT/57.3; 
betao=betao/57.3; 
rho=.002377*(-.000031*PA+(-.002*temp+1.118)); 
qz0.5*rho*Vinf^2s 


Adiskzpi*R^2; 
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Vtip=omega*R; 
temp_rank=temp+459.67; 

spd snds49.1*sqrt(temp rank); 
Lwing=q*CLwing*Swing; 


Dfuse=q*Afh; 
CDwing=CDowing+(CLwing*2/ (ewing*pi* (bwing*2/Swing))); 
CDheoriz-CDenoraz (CLhoriz”2717. 8”pi”(bhoriz”2/ShorF1z))): 
CDvert=CDovert+ (CLvert*2/(.8*pi* (bvert*2/Svert))); 
Dwing=q* CDwing* Swing; 

Dhoriz=q*CBDhoriz*Shoriz; 


Dvert=q*CDvert*Svert; 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 


% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 
VE NINE/1) 168178142710 
AUXEFF=.650; 
elseif Vinf/1.68781<=100 
BUXEFF=.65+.0025*((Vin£/1.68781)-70); 
elseif Vinf/1.68781<=160 
AUXEFF=.725+.0025* ((Vinf/1.68781)-100); 
elseif Vinf/1.68781<=210 
AUXEFF=.85+.00007*((Vinf/1.68781)-160); 
else 
AUXEFF=.847; 
end 


% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux; 
case 1 
if PA==8000 
Taux=16*Vinf/1.68781; % linear increase in aux thrust up to 210 
knots 
S PERF INPUT. Taux=Taux; 
S$S USER INPUT. Taux=Taux; 
elseif PA==5000 
Taux=17.024*Vinf/1.68781; % linear increase in aux thrust up 
to 210 knots 
S PERF INPUT. Tauxz-Taux, 
S. USER. INPUT.Taux-Taux; 
elseif PA--0 
Taux-prtotal:; 
S. PERF, INPUT.Taux-Taux; 
S. USER, INPUT.Taux-Taux; 
end 
end 
Lhorizsqg*chhorrz*Shoriz; 
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Lvertsq*CLvert*Svert; 


Lftotal=Lwing+Lhoriz; 
if FIX TPP VAL== 


alphaT-NEW TPP: %set tip path angle 
else 
DfotorsHboser:; % keep the tip path plane angle constant 


alphaT trim-alphaT; 
altpp-alphaT; 


end 


5 xxx thrust calculation žá 


T=(GW-Lftotal)/cos(alphaT); 


CT=m/(adisk*rho*VEip"2) > 


% *** setup blade radius elements, azimuth elements, 
% induced velocity distributions, and determination 
5 of coning angle and tip loss parameter *** 


B=1-(sqrt(2*CT) /b); 
Reff-B*R; 


Rbar=Reff-e; 


if RADSPC_VAL== 
NEW rl=(NEW r, Reff/R]: 
n-length (NEW. r1); 
drzdiff(NEW r1)*R; 
r=(NEW_rl(l:n-1)*R)+dr/2; 
else 
dr=(Reff-grip) /nbe; 
r*oripdr Wefr-dr; r-rTtdr/2; 
end 
PNE TWISTOVAL== 
NL TWIST=NL TWIST/57.3; 
n-length (NL TWIST); 
if RADSPC VAL== 
y= ( (Reff/R) -NEW_r (n) ) * ( (NL_ TWIST (n) -NL_ TWIST (n-1))/ (NEW r(n)- 
NEW r(n-1))); 
else 
y-((Reff/R)-r(n))*((NL TWIST(n)-NL-TWIST (n-1))/N& (n) wEtn-1))); 
end 
NL TWIST1s[NL TWIST (NL TWIST (n)-*y)]; 
m-length(NL TWIST1); 
ATW=diff (NL_TWIST1); 
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twist=(NL_TWIST1(1:m-1))+aTw/2; 
betat=twist; 

else 
betat=twist*(0.7-(r/R)); 


end 


rılır?” % *** Set value for rT as calculated for tirm 
kkk 


RbarT=rT1*Rbar; 
mblade=wblade/32.17; 


$betao=asin( (T/b*RbarT-(.5* (R-e) +e) *wblade) /((.5*(R- 
e)+e) *2*omega*2*mblade) ) 


pesrz083607naz:3609360/naz;,psispsi'/57.3; 


%% set up vector of blade element chords and then varies them as 
$5 requested with the blade taper and blade taper start position 
$$  rchord-root chord 

%%  cblade-vector of blade element chord lengths 

36 r-taper ratio (tip/root) 


$$ trst=taper ratio start position (r/R) 


cblade=rchord*ones (size(r)); % gives all elements same chord 
lengrm initially 


if tr--0 $ prevents division by zero later in code 


tr=l; % in case 0 is enter for taper ratio instead 


end % of 1 for no taper 
if trst== 
slope=(rchord-rchord*tr)/ (Reff-grip);' % Modifies each element 
cblade=cblade-slope* (r-grip); % chord length wrt input 
tchord=cblade (nbe) ; $ taper ratio which has 
been 
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mchord=sum(cblade) /nbe; % been converted into a slope 


$ top portion takes into 


else $ account the possibility 

that 

slope=(rchord-rchord*tr)/(R*(1-trst)); $ a 0 start position is 
really at 

zetix(nbe*trsto $ the start of the aero 
portion 

ис $ prevents beginning index fm being zero 

ZEN 
end 


cblade(z:nbe) =cblade(z:nbe) -(r(z:nbe)-r(z))*slope; 
tchord=cblade (nbe) ; 
mchord-sum(cblade)/nbe; 


end 


% *** jnduced velocity determination *** 


vi trim=lamdaT trim*Vtip+(Vinf*sin(alphaT trim)); 
vi=lamda prime*Vtip+(Vinf*sin(alphaT)); 


$ Calulate new coning angle based on change in alpha of blade 


phi old=atan( (Vint*sin(alphalT trimytvi trim] /VE1D) 
phi_new=atan((Vinf*sin(alphaT)+vi)/Vtip); 


betao-betao*(1-((phi new-phi old)/(thetao-phi old))); 


vi=vi*ones(size(r)); 


7 *** Calculate theta based on trim conditions ””” 


theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
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%  “rotor”trmming routine *** 


set (H_ STATUS, ‘String’, ’CALULATING ') 

Se"IHESTPATUISI,'"String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) “ 
SECONDS’ ] ) 

pause (3) 

set (H_STATUS2,'String','') 


Tpsi=zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 


Trocor=mean(Tpsi)*b; 
Mpsi(:,k)=zeros(size(psi)); 


Emcale 


$ *** calculating drag moments *** 

Set (H STATUS2,'String','CALCULATING DRAG MOMENT') 

set (H_STATUS1,’String’, [ RUN ELAPSED TIME IS ' num2str(fix(toc)) * 
SECONDS |) 

pause (2) 

DMpsi=zeros(size(psi)); 


dmcalc 
Qrotor=mean (DMpsi) *b; 


% *** cealculating rotor H force *** 
set (H_STATUS2, ‘String’, ‘CALCULATING ROTOR DRAG’ ) 
set (H_STATUS1, * String’, {[’RUN ELAPSED TIME IS ' num2str(fix(toc)) € 


SECONDS" |) 
pause (2) 


dr=|ar dar]; 
dN=[dN daN]; 
dD-[dD ddD]; 
formel: tength(r)th, 
tele Sunat 0) cos psi))/naz: 


BIS(1)52*sum(0D(:,1).*sin(psi]j)/naz; 


end 


Hrotor=(((b*cos(alphaT) /2) * (sum(H1s) -sin(betao) *sum(Hlc)) )+Drotor)/2; 


CT=Trótor/(2035k*rhO*VELDOZJE 
CHsHrotorA(lAdusk*rho*vtxp^2); 
CosOrotor/(Adisk*rho*Vtip2225R). 


solidity=b* (sum(cblade) /length(r))/(pi*R); 


vetsag latl n)scr/solrdity:; 
vcgsig_la(1,n)=CQ/soliditv; 
vehsig la (1 n)=01 solidiky: 
vmu la(1,n)=mu; 


% Determine flapping 
lockno=rho*a*(sum(cblade) /length(r)) *R"4/Ib; 


Al--thetalc; 
Bl--thetals, 
eESig=vctsig_la(1l,n); 
thetao-thetao-.7*thetal; 


altpp=(vlamp_la(1,n)/mu)+(solidity*ctsig/2/ (mu*sqrt (mu*2+vlamp_la(1,n)%*2 
I): 


numi-thetao*mu*8/3; 

num2-2*thetal*mu; 
nUum3s-B14(14( (3/2) mu 219G 

num4=2*mu* (mu*altpp- (ctsig*solidity/2/mu)); 
deni=1-((mu*2)/2); 
terml-(numl-num2-num3) /denl, 


nums-=12*(e/F); 
den5=lockno* ((1-(e/R) )*3) * (1+ (mu*4) /4); 
term2=num5/den5; 


nume-AJIT*(1e(:5*mu^2)); 

num7= (4/3) *ctsig; 

nums=(2/3)*mu* lockno/a; 
num9-solidity/2*mu; 

den6=1+(3*e/2/R); 
term3=num6+ (num? * ( (num8/den6) +num9) ) ; 


vals la(1,n)=(terml+(term2*term3)):; 


vvi_la(1,n)=mean(vi); 
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boiml=(4/S)Petsig: 

Beenl=1l+((mu*2)/2); 

bnum2= (2/3) *mu*lockno/a; 

bden2=1+(3*e/2/R); 

bterml=solidity/2/mu; 

bterm2=A1 + ( (bnum1 /bden1)* ( (bnum2/bden2)+bterml1)); 
bnum3=12*e/R; 

bdđen3=lockno* ((1-(e/R))^3)*(1-(.25*(mu^4))); 
bterm3=bnum3 /bden3 ; 
bnumdc2*mu^(t(mu*(altpp-altpp))-(ctsig*solidity/2/mu)); 


bterm4=numl +num2+num3+bnum4 ; 


vbis_la(1,n)=bterm2+ (bterm3*bterm4); 


stall rotor 

% 

if tailrot== 
ctsrgsvetsig-laítln): 
cgsig=vcgsig_la(1,n); 
ohm=omega; 
lv=lvd-xcg; 
S-32.2$ 
A=pi*R*R; 


Abtsbt*RE*cE; 

Az-BL BEZRE? 

NUEESVIDE/ONME/RE; 

sigmat=Abt/At; 

lt=ltd-xcg; 

ht=htd-zcg; 

yt=ytd-ycg; 

locenoe"rno "at ”-ce”RE”4/IbE, 

Tü— ca i/-olidity zcno”A” (olim"R)”27R-Llvert”iv) 213? 

cs. Cho At (ohm RE) E; 

lampt=-ctsigt*solidity/2/mu; 

aot=2/3* locknot*ctsigt/at-3/2*g*Rt“2/ (ohme*RE) *2; 

alst=(-2* ((4/3*mut*aot+ctsigt*sigmat/2/mut) /(2+mut*mut) ) * (1- 
(4*muE/ (Z33*muE*mut))"2)*... 

tan(delta3))/(((2-mut*mut)/(2+3*mut*mut))+(1- 

(Z7M0ER 2r3*mut*mue))2)*tan(delta3)"2); 


bist=2* ((4/3*mu*aot*ctsigt*solidity/2/mu) /(2+mu*mu) )+alst*tan(delta3) ; 
thetaot=((4*ctsigt/at) — 
(.5+mut*mut/2)*thetalt+mut*blst*tan(delta3)-lampt)/... 
(2/3+mut*mut)-aot*tan(delta3); 
theta75t=thetaot+.75*thetalt; 
vltssgrtiTt/2/rho/At); 
votsigt latil:n)-ctsıgt, 
vlampt(1,n)=lampt; 


end 
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21 Stab calc mu.m 


€ Stab calc mu.m 


5 Calculates change in CT CH CQ als bls with respect to input 
parameters 
% Created for JANRAD version 6.0 by LT David A. Heathorn 


global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 
S_PERF_OUTPUT lamdaT_trim 


set (H_STATUS, ‘String’, ‘EXECUTING ROTOR DERIVATIVE ROUTINE’ ) 
SEEREHESTANOSI "String", [| RUN ELAPSED TIME TS * num2str(fix(toc)) * 
SECONDS”)) 


pause(3) 


% *** calculation of required parameters *** 


Vsave=Vinf; 
mora — s3 


35 RK=S=L 
Vinf-Vsave-(Vsave”.15), 
n— s 


elseif kk==2 
Vinf=Vsave; 
Tio 


else 
Vinf=Vsave+(Vsave*.15); 
—” 

end 


unstructure2 
thetalcethetalc/57.3, 
thetals-thetals/57.3; 
thetao-thetao/57.3; 
alphaT-alphaT/57.3; 
betao=betao/57.3; 


rho=.002377*(-.000031*PA+(-.002*temp+1.118)); 
qes0 bp tho Vint 2; 

Adisk=pi*R*2; 

Vtip=omega*R; 

temp rank=temp+459.67; 


spd snd=49.1*sqrt(temp rank); 
Lwing=q*CLwing*Swing; 
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Dfuse=q*Afh; 

CDwing-CDowing- (CLwing^2/(ewing*pi* (bwing^2/Swing))); 
CDhorizsOBohseseizt(CLhoriz^2/(.8*pi*(bhoriz^2/Shoriz) 05 
CDvertzCDovert-* (CLvert^2/(.8*pi*(bvert^2/Svert))); 
Dwing=q*CDwing*Swing; 

Dhoriz-q*cDhorrz*Shortiz; 


Dvert-q*CDvert*Svert; 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 


% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 
if Vinf/1.637%81==70 
AUXEFF=.650; 
elseif Vinf/1.68781<=100 
AUXEFF=.65+.0025* ( (Vinf/1.68781)-70); 
elseif Vinf/1.68781<=160 
AUXEFF=.725+.0025* ( (Vinf/1.68781)-100); 
elseif Vinf/1.68781<=210 
AUXEFF=.85+.00007* ( (Vinf/1.68781)-160); 
else : 
AUXEFF=.847; 
end 


% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert)-Taux; 
case 1 
if PA==8000 
Taux=16*Vinf/1.68781; % linear increase in aux thrust up to 
210 knots 
S PERF INPUT. Taux=Taux; 
S USER INPUT. Taux=Taux; 
elseif PA==5000 
Taux=17.024*Vinf/1.68781; % linear increase in aux 'thrust up 
199210 knots 
S. PERF. INPUT.Taux-Taux; 
S USER INPUT.Taux-Taux; 
elseif PA==0 
TauxsDftotal; 
S PERF INPUT.Taux-Taux; 
SLUSER_INPUT . Taux=Taux; 
end 
end 
Bhoriz-q*CcLbhoriz*Sborrz.: 


Lvert-q*CLvert*Svert; 
Lftotal=Lwing+Lhoriz; 


1f FIX TPP VAL== 
alphaT=NEW TPP; set tip path angle 
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else 
Drotor=Hrotor; 
alphaT-atan2((Dftotal#Drotor), (GW-Lftotal)): 
end 
mu=Vint *cos (alphaT) /Vtip; 


% gat Ehrust calculation *** 


T-(GW-Lftotal)/cos(alphaT); 


ur-n/ Adisk”rho”Vtip”2), 


% *** setup blade radius elements, azimuth elements, 
% induced velocity distributions, and determination 
% of coning angle and tip loss parameter *** 


B=1- (sqrt (2*CT) /b); 
RETL=B"R; 


Rbar=Reff-e; 


if RADSPC_VAL== 
NEW_r1=[NEW_r, Reff/R]; 
n=length(NEW r1), 
dr-dift DEM. rİ2”R, 
r=(NEW_r1(1:n-1)*R)+dr/2; 
else 
dr=(Reff-grip) /nbe; 
r-GEİD dr :Reff-dr, r=r+dr 2; 
end 
if NL TWIST VAL== 
NE TWISTZNL TWIST/57.3; 
n-length(NL TWIST); 
if RADSPC VAL== 
y-((Reff/R)-NEW r(n))*((NL TWIST(n)-NL TWIST(n-1))/(NEW r(n)- 
NEW rí(n-1))); 
else 
yz-z((Reff/R)-r(n))*((NL TWIST (n)-NL TWIST (n-1))/(r(n)- r(n-1))); 
end 
NESTWIĘTI=|NE_ TWIST (NE _TWIST(n)+v)]; 
m-length(NL TWIST1); 
dTW-diff(NL TWIST1); 
twist=(NL_TWIST1(1:m-1))+dTW/2; 
betat=twist; 
else 
betat=twist*(0.7-(r/R)); 


end 
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YrTl=rT2;,% *** Set value for YT as calculated torcırm”” 
RbarT=rT1*Rbar; 
mblade=wblade/32.17; 
% Coning angle using Thrust given from Trim condition 
betao=asin((T/b*RbarT-(.5* (R-e) +e) *wblade) / ((.5* (R- 

e)+e) *2*omega*2*mblade) ); 


psi=0:360/naz:360-360/naz;,psi=psi’/57.3; 


%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%%  rchord-root chord 

SS  cblade-vector of blade element chord lengths 

$$  tr-taper ratio (tip/root) 


$$  trst-taper ratio start position (r/R) 


cblade=rchord*ones(size(r)); % gives all elements same chord 
length initially 


if tr==0 % prevents division by zero later in code 


tr-1, % in case 0 is enter for taper ratio instead 


end % of 1 for no taper 
if trst==0 
slope=(rchord-rchord*tr) / (Reff-grip) ; % Modifies each element 
cblade=cblade-slope* (r-grip); % chord length wrt input 
tchord=cblade (nbe); $ taper ratio which has 
been 
mchord=sum(cblade) /nbe; % been converted into a slope 


% top portion takes into 
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else % account the possibility 
tonat 


Elope-(rchord-reohord”tr)/1(R”(1-trst)): 5 а О start position is 
really at 
zziix(nbe*Crse); % the start of the aero 
portion 
1557-ci $ prevents beginning index fm being zero 
2=1, 
end 


cblade(z:nbe)=cblade(z:nbe)-(r(z:nbe)-r(z))*slope; 
tchord=cblade(nbe) ; 
mchord=sum(cblade) /nbe; 


end 


% *** induced velocity determination *** 


%.Wheatley Egn for Fwd flt 


lamdaT=0; 


lamda=1; 


while abs (lamdaT-lamda) >1e-4 
lamda=lamdaT; 
lamdaT=mu*sin(alphaT)+0.5*CT/sqrt (lamdaT*2+mu%2) ; 


end 


vi-lamdaT*Vtip-Vinf£*sin(alphaT); 


vi=vi*ones(size(r)); 


% Peeacaleulace Cheta"Based on trim conditions *** 
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theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 


% SS rOCOESEr Miming routine "> 


set(H STATUS” String”, CALULATIN€ ”) 


set(H STATUSI,'String',['RUN ELAPSED TIME IS le 7 
SECONDS”1) 


pause(3) 
set (H. STATUS2,”String”,””) 


Tpsi-zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 

Trotor=mean (Tpsi)*b; 


Mpsi(:,k)=zeros(size(psi) ); 


tmcalc 


$ *** calculating drag moments *** 


set(H STATUS2,'String','CALCULATING DRAG MOMENT') 

set (H_STATUS1, String',['RUN ELAPSED TIME M8 ” num2str(ilx(toe)) 4 
SECONDS’ ] ) 

pause (2) 

DMpsi=zeros(size(psi)); 


dmcalc 
Qrotorzmean (DMpsi)*b; 


% "= Calculating rotor H forces" 
set (H_STATUS2, ‘String’, ’CALCULATING ROTOR DRAG’) 
set (H STATUSL, ‘String’, [’RUN ELAPSED TIME IS * num2str(fix(toc)) W 


SECONDS’ } ) 
pause (2) 


AT-[AT AAT]: 

GN=[dN ddN]; 

GD=[dD ddD]; 

for i=1:length(r)+1, 
HIci1)22*sum(dT(- 1) *cos(psi))/maz; 


Ris(i)=2*sum(aD(:,1) .*sin(psi))/maz; 


end 


14] 


Hrotor=(((b*cos(alphaT) /2) * (sum(H1s) -sin(betao) *sum(H1c) ))+Drotor) /2; 


Cı-nuotor/(Adıisk”rho"Vtip”2): 
CuH-Hrotor/(Adisk”rho”"Vtap“”2)” 
cosorotor/MWidisk*rho*Vtip^2*R); 


solidity=b* (sum(cblade) /length(r))/(pi*R); 


vctsaGgmu(1,n)-CT/solidity; 
vegsigoma(t,n)=CO/scliditv; 
vehssogsmutin)-CH/solidity; 
vmu, mu(1,n)zmu; 


ESEEEEEEEEEEEESEEEEESESESEEESESEENOT SURE AFTER 
THISSEESEEESEESESESEESEEEEEEEEEEEEEEESS 


altpp=-alphaT; 
thetao-thetao-.7*thetal; 
locknosrno*a*(sumi(cblade)/length(r))*R^4/Ib; 


Al--thetalc; 
Bl=-thetals; 
ctsigsvctsig mu(1,n); 


numl-thetao*mu*8/3; 

num2=2*thetal*mu; 
num3=-B1*(1+((3/2)*mu*2)); 

num4=2*mu* (mu*altpp-(ctsig*solidity/2/mu)); 
denizr-((mu^2)72); 

terml= (numl+num2+num3) /denl; 


nums=12*(e/R); 
den5zlockno*((1-(e/R))^3)* (1+(mu”4) /4); 
term2=num5/den5; 


rumoz-zAl” (197755 mu”2)): 
nim/=(4/3)*ctsig; 
nume=(275)mu*loeckno/a; 
nums=solsdity/2*mu; 

den6=1+(3*e/2/R); 
term3=num6+ (num? * ( (num8/den6) +num9)) ; 


vals_mu(1,n)=(terml1+(term2*term3)); 
vvi_mu(1,n)=mean (vi); 


baunlz-(4(8) “ct sig: 

bdenl=1+ ( (mu%2) /2); 

Baum2=(27 3) =mu*lockno/a; 

bden2=1+(3*e/2/R); 

btermi=solidity/2/mu; 

bterm2=A1+ ( (bnumi /bden1 ) * ( (bnum2 /bden2 ) +bterml)); 
bnum3=12*e/R; 
bden3slockno*((1-(e/R))^3)*(1-(.25* (mu^4))); 
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bterm3=bnum3 /bden3 ; 
Ылли4=2*пи* (| (mvu* (altpp-altpp))-(ctsig*solidity/2 mu 


bterm4=numl +num2+num3 +bnum4 ; 


vbls_mu(l,n)=bterm2+(bterm3*bterm4) ; 


$tall rotor & 

if tailrot== 
ctsig-vctsig mu(1,n); 
cqsig=veqsig_mu(1,n); 
ohm=omega; 
lv=lvd-xcg; 
g=32.2; 
A-piI“R “Rh: 


Abtzbt Rt “ct: 

AtzpI “RE Rt: 

mut-Vinf/ohmt/Rt; 

sigmat=Abt/At; 

lt=ltd-xcg; 

ht=htd-zcg; 

yt=ytd-ycg; 

locknotsrho*at*ct*Rt^4/Ibt; 

TE=(cqsig*solidity* rho*A* (ohm*R) *2*R-Lvert* lv) /1t; 

Gtsj)gt-Tti/ EE (oOhme*Re) Z]; 

lampt=-ctsigt*solidity/2/mu; 

aotc2/3”1ocknot”etsigt/at-3/2”a”Rt”27(ohme Ee) 2: 

alst=(-2* ((4/3*mut*aot+ctsigt*sigmat/2/mut) /(2+mut*mut) ) * (1- 
mut” 72:3”mut”müt))”2)”-.. 

tan(delta3))/(((2-mut*mut)/(2+3*mut*mut))+(1- 

(4*mat/ (2+3*mut*mut) )*2) *tan(delta3) *2); 


blst=2*((4/3*mu*aot*ctsigt*solidity/2/mu)/(2+mu*mu) )+alst*tan(delta3); 
thetaot=((4*ctsigt/at)- 
(.5+mut*mut/2)*thetalt+mut*blst*tan(delta3)-lampt)/... 
(2/3+mut*mut)-aot*tan(delta3); 
theta75t=thetaot+.75*thetalt; 
viltesdgrtiTt/2/rho/At)-. 
wetsigtemubllon -ctsigt. 
vnat (1,n)=muE; 


end 


end 
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22: Stab cal to.m 


% Stab_calc_to.m 


% Calculates change in CT CH CQ als bls with respect to input 
parameters 
% Written for JANRAD version 6.0 by LT David A. Heathorn 


global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 
S PERF OUTPUT lamdaT trim 


set (H_STATUS, ’String’, ‘EXECUTING ROTOR DERIVATIVE ROUTINE’) 
set (H_STATUS1, ‘String’, [{’‘RUN ELAPSED TIME IS * num2str(fix(toc)) ' 
SECONDS’ J ) 


pause (3) 
% *** calculation of required parameters *** 


fOr Kee: 3 


D ME 
unstructure2 
thetao-thetao/57.3; 
theta save-thetao; 
Ghetazsınoe— (1/57:30£ 
thetao=thetao+(theta inc); 
n=l; 
vthetao_to(1,n)=thetao; 


elseif kk==2 
unstructure2 
thetao=thetao/57.3; 
theta_inc=0; 
n-27 
vthetao to(1,n)-thetao; 


else 
unstructure2 
thetao=thetao/57.3; 
theta amc=(1/57.3); 
thetao=thetao+(theta_inc); 
n=3; 
vthetao_to(1,n)=thetao; 


end 
thetalc=thetalc/57.3; 
thetals=thetals/57.3; 
alphaT=alphaT/57.3; 
betao=betao/57.3; 


Virit=Vsave; 
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rhos.002377*X1—:5000031*PA*(—.002*temprti 116 
q=0:5*Eho NE" 2" 
Adiskepi”E”z: 


Vtip=omega*R; 
temp_rank=temp+459.67; 
spd_snd=49.1*sqrt(temp_rank); 
Lwing=q*CLwing*Swing; 


Dfuse=q*Afh; 

CDwing=CDowing+(CLwing*2/(ewing*pi* (bwing”2/Swing))); 
Gnhoriz-cDohorize(Cbhoriz^2/(.8*pr*(bhorzz^279hori2))0) 5 
CDvert=CDovert+(CLvert"2/(.8*pi*(bvert"2/Svert))); 
Dwing=q*CDwing*Swing; 

BDREOFrzZ= EBDROFEZ*SNOFiZ; 


Dvert=q*CDvert*Svert; 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 


% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 


1: Vinf/1 68781--—/0 
ANHXEFF-Z.650; 
elseif Vinf/1.68781<=100 
AUXEFF=.65+.0025*((Vinf/1.68781)-70); 
elseif Vinf/1.68781<=160 
AUXEFF=.725+.0025*((Vinf/1.68781)-100); 
elseif Vinf/1.68781<=210 
AUXEFF=.85+.00007*((Vinf/1.68781)-160); 
else 
AUXEFF=.847; 
end 


% This section provided aux thrust schedule for compound helo 
switch NEW AUX VAL 
case 0 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case 1 
if PA==8000 
Taux=16*Vinf/1.68781 % linear increase in aux thrust up to 210 
knots 
S. PERF INPUT.Taux-Taux; 
S. USER INPUT.Taux-Taux; 
elseif PA==5000 
Taux=17.024*Vinf/1.68781 3 linear increase in aux thrust up to 
210 knots 
S. PERF, INPUT.Taux-Taux; 
S USER INPUT. Tauxz-Taux, 
elseif PA-- 
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Taus-Dftotal: 
S. PERF. INPUT.Taux-Taux; 
S USER INPUT.Taux-Taux; 
end 
end 
bpnosz-q*orhoriz*Shoriz; 


Lvert=q*CLvert*Svert; 
Lftotal=Lwing+Lhoriz; 
if FIXSTPP VAL==1 
DrotorzHrotor; 
alphaT-NEW TPP, %set tip path angle 


else 
lamdaT-lamdaT trim, 


altpp=asin((lamdaT-(.5*CT/sqrt ((lamdaT”2+mu”2))) /mu); 
alphaT=altpp; 
Drotor=Hrotör: 


end 


% *** thrust calculation *** 


T=(GW-Lftotal) /cos(alphaT) ; 


CTZTAUAdisk*rho"Vtip^2); 


% *** setup blade radius elements, azimuth elements, 
% induced velocity distributions, and determination 
% of coning angle and tip loss parameter *** 


Bl (sy (ә 1), 
Ref f=B*R; 


Rbar=Reff-e; 


if RADSPC_VAL== 
NEW rl1-2[NEW r, Reff/R]; 
nzlength(NEW r1); 
drzdiff (NEW r1)*R; 
r=(NEW_r1(1:n-1) *R)+dr/2; 
else 
dr=(Reff-grip) /nbe; 
r=grip:dr:Reff-dr; ,r=r+dr/2; 
end 
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if NL TMNIST VALFE- 
NL TWIST=NL TWIST/57.3; 
n=length(NL TWIST); 
if RADSPC VAL==1 
y=( (Reff/R)-NEW r(n))* ( (NL TWIST(n)-NL TWIST(n-1))/(NEW r(n)- 
NEW rí(n-1))); 
else 
y-((Reff/R)-r(n))*((NL TWIST(n)-NL TWIST(n-1))/(r(n)- r(n-1))); 
end 
NL TWISTi1s[NL TWIST (NL TWIST(n)-*y)]l; 
m-length(NL TWIST1); 
EEN TWISTI); 
twist- (NL TWIST1(1:m-1))-«dTW/2; 
betat=twist; 
else 
betat=twist*(0.7-(r/R)); 


end 
rTl=rT2;,% *** Set value for rT as calculated for tirm *** 


RbarT=rT1*Rbar; 
mblade-wblade/32.17; 


betao-betao-(theta inc*(betao/theta save)); 
psi=0:360/naz:360-360/naz; ,psi=psi"/57.3; 


%% set up vector of blade element chords and then varies them as 
$$ requested with the blade taper and blade taper start position 
5585  rchord-root chord 

5%  cblade-vector of blade element chord lengths 

$$ tr=taper ratio (tip/root) 


$$ trst=taper ratio start position (r/R) 


cblade=rchord*ones(size(r)); % gives all elements same chord 
length initially 


if tr--0 $ prevents division by zero later in code 


tr-1, 5 in case 0 is enter for taper ratio instead 


end $ of 1 for no taper 
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IE erst== 


slope=(rchord-rchord*tr)/(Reff-grip); $ Modifies each element 
cblade=cblade-slope* (r-grip); % chord length wrt input 
tchord=cblade (nbe) ; % taper ratio which has 
been 
mchord=sum(cblade) /nbe; % been converted into a slope 
$ top portion takes into 
else $ account the possibility 
that 
slope=(rchord-rchord*tr)/(R*(1-trst)); % a0 start position is 
really at 
| z=fix(nbe*trst); % the start of the aero 
porti0n 
mt 1 $ prevents beginning index fm being zero 
z=1; 
end 
cblade(z:nbe)=cblade(z:nbe)-(r(z:nbe)-r(z))*slope; 
tchord=cblade (nbe) ; 
mchord=sum(cblade) /nbe; 
end 
% *** induced velocity determination *** 


vi=lamdaT*Vtip-Vinf*sin(alphaT); 


717) ones(sizei(Tr))?” 


5 2 Mösliculate theta based on trim conditions *** 


148 


theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 


% 5? zoteornerinning zóuEline *52 


set(H STATUS,'String','CALULATING ”) 

set (H STATUS1, 'String', ['RUN ELAPSED TIME IS ’ num2str(fix(toc)) ' 
SECONDS’ } ) 

pause (3) 

set (H_STATUS2, ’ String’ ,’”) 


Tpsi=zeros(size(psi)); 
Npsi=zeros(size(psi)); 
chrecale 


Trotor-mean(Tpsi)”b, 
Mpsi(:,k)=zeros(size(psi)); 


tmcalc 


e 0% calculating drag moments *** 

set (H_STATUS2,’String’,’CALCULATING DRAG MOMENT’ ) 

Set(H-STATUST,'String',['RUN ELAPSED TIME IS ’ num2str (fix(toc})) * 
SECONDS’ ]} ) 

pause (2) 

DMpsi=zeros(size(psi)); 


dmcalc 
Qrotorzmean (DMpsi)*b; 


% a calculating rotor H force *** 
set (H_STATUS2, 'String’, ‘CALCULATING ROTOR DRAG’ ) 
set (H STATUS], String", [ RUN ELAPSED TIME IS * num2st X £ EOC) S 


SECONDS’ ] ) 
pause (2) 


ai=|ar"aat]; 
dN=[dN ddN]; 
dD-[dD ddD]; 


for i=l:length(r)+1, 
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PUEJIEN=Z*sum(AT(:,1) %*eos(psi))/naz; 
His(")=2*sum(dD(:,1).*sin(psi))/naz; 
end 


Hrotor-z(((b*cos(alphaT)/2)*(sum(Hls)-sin(betao)*sum(H1c)))-*Drotor)/2; 


Cr-rrotor/(AdısE” rao”Vteip”2): 
CH=Hrotor/ (Adisk*rho*Vtip“2) ; 
cCo-orcror M Adisk*rho*VElp^2*R)S 


solidity=b* (sum(cblade) /length(r))/(pi*R) ; 


vetsteskio(L rnyecmsolirogty 
vegsigstoiílon)sco/solidity; 
vcehsigoce(1,n)=CH/solidity; 
vmu_to(1,n)=mu; 


%%%%%%%%%%3%%%%%%3%%%33%%%%%%%%%%%%%%%%NOT sure after 


heręe*****kkkkkkkkkkkkkkkkkkkkkkkk*% 


% assume alpha of shaft is zero 
lockno-rho*a* (sum(cblade)/length(r))*R^4/Ib; 
thetao-thetao-.7*thetal; 


Al--thetalc, 
Bl=-thetals; 


ertsugsvetsiq Eo(l,n); 
altpp--alphaT; 


numi=thetao*mu*8/3; 

num2=2*thetal*mu; 
num3=-B1*(1+((3/2)*mu*2)); 

numé=2 *mu* (mu*altpp-(ctsig* soliditey/2/mu) ); 
denl=1-((mu%2) /2); 
terml-(numl-num2-num3)/denl, 


num5-12* (e/R); 
den5=lockno* ( (1-(e/R) )*3) * (1+ (mu%4) /4); 
term2=num5/den5; 


numosATl*(14(.5*mu^2)9-7 
num/7-(4/3)*ctsig; 
nums=(2/3)*mu*lockno/a; 
num9=solidity/2*mu; 
den6=1+(3*e/2/R); 
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term3=num6+ (num7* ( (num8/den6)+num9) ) ; 
vals to(l,n)=(terml+(term2*term3)):; 
vvi toll njenmean' vi: 


bnuml-(4/3)“ctsig: 

bden1-21- ((mu^2)/2); 

bńumż=(2/3) mus lackno/a; 

bden2=1+(3*e/2/R); 

bterml=solidity/2/mu; 

bterm2=A1+ ( (bnuml1 /bden1) * ( (bnum2/bden2) +bterml)); 
bnum3=12*e/R; 
bdensslockno*((1-(e/R))^3)*(1-(.25*(mu^4))) 
bterm3=bnum3 /bden3 ; 

bnum4=2*mu* ( (mu* (altpp-altpp) )-(ctsig*solidity/2/mu)); 


bterm4=numl +num2 +num3 +bnum4 ; 
vbis to(1,n) -bterm24 (bterm3 “bterm4): 


$tail rotor 

% 

1: tallrot-—— 
ctsig-vetsiq to (lm): 
Gqsig=veGsig toda. 
ohm-omega; 
iv=lvd=xeg; 

027) 
A-pi*R*R; 


Abt-bt*Rt*ct; 

At-pi*Rt*Rt; 

mut=Vinf/ohmt/Rt; 

sigmat=Abt/At; 

lt-ltd-xcg; 

ht=htd-zcg; 

yt=ytd-ycg; 

locknot=rho'at*ct RE AI Ibe,; 

Te-z(odsig'*solrxdditv'rbo^A*(tobm*RE)^2*R-Lvert*lv)7l1t. 

ctsigtsTE/(rhos*At*(oBhmEt*RE)^2)* 

lampt=-ctsigt*solidity/2/mu; 

aot-2/3*locknoet'ctsigt/at-3/2"gG*Rt^2/(ohlhmt*Rt) ^2; 

alst=(-2* ((4/3*mut*aot+ctsigt*sigmat/2/mut) /(2+mut*mut) ) * (1- 
75 müut/ (2:5”“mut”mut?? 22” 

tan(delta3))/(((2-mut*mut)/(2+3*mut*mut))+(1- 

(d*mut/(2+3*mut*mut))'2) *tan(delta3)"2); 


blst=2*((4/3*mu*aot*ctsigt*solidity/2/mu)/(2+mu*mu) )+alst*tan(delta3); 

thetaot=((4*ctsigt/at)- 
(.5+mut*mut/2)*thetalt+mut*blst*tan(delta3)-lampt)/... 

(2/3+mut*mut) -aot*tan(delta3) ; 

theta75t=thetaot+.75*thetalt; 

vit-surt1t/2/rho/At): 

VCESIGEMEOL (lL, n)=ctsigt. 

vthetaot(1,n)-thetaot; 
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Ds. stab control input fcn.m 


function stab control input £en 53685) 


$ Switchyard Callback function for stab-control"inpupe and 
stab control inpit Z.m 
% Written for JANRAD version 6.0 by LT David A. Heathorn 


global S STAB INPUT 1 S STAB INPUT 2 H STAB IN S5 PERE TINEUT 
S PERF OUTPUT H STAB TNT... 
Mm STAB INZ S SC INPUT 1 S SC INPUT TZ 


if isempty (nargin) 
return 
end 


switch Action 
case "conti 
if isempty(getfield(S SC INPUT 1,'Ib')|... 
getfield(S SC INPUT 1, *hmd*)|-.- 
getfield(S SC INPUT 1,'l1md')|... 


getfield(S SC INPUT 1,'ymd')|... 
getfiela(s SC INUNA) | SĘ 
getfield(S SC INPUT 1,'hvd')|... 
getfield(S_SC_ INPUT. apa 2 
getfield(Sse mem Ira R: 
getfield(S SC INPUT 1,'alplov')|... 
getfield(S SC INPUT 1, 'clvertmax')|... 
getfield(S SC INPUTIL Аҹ 1)| 2 
getfield(S SC INPUT 1,'hhd')|... 
getfield(S*sc INPUT Tha la = 
getfield(S SC INPUT 1,'alploh')|... 
getfield(SS*SC INPUT-I.'1549)] 95. 
getfield(S SC INPUT 1, 'ah')]... 
getfield(S SC INPUT. 1, aha )İ-.. 
getfield(S SC INPUT l,'vhv1')|... 
getfield(S SC INPUT 1,'detafdalpfh')|... 
gecfieldis SCENT hal: 
getfield(S SC INPUT. 1, yed RRE 
getfield (Sse INPUT 1, be le. 
getfieldi(s SC INPUT L./Cce ie. 
getfisld(s SE INPUT RE иИии 
getfield(S SC INPUT.1,”at”)l..: 
getfield(s sc INPUT 1, om) |..." 
getfreld(sssc INPUT! The ol... 
getfield(S SC INPUT 1, delta3 Ye 
getfield(S SC INPUT 1, 'thetalt')): 


empty boxes 
return 
end 


Stability control input_2 
close(H STAB IN1) 


case ‘cont2’ 


if isempty(getfield(S_SC_INPUT_2,'hwd')|... 


199 


getfield(S SC, INPUT 2, 
getftield(S SEC INPUT 2," 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2," 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 


getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 


getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
,'dthetomddelc')|... 
getfield(S SC INPUT 2, 
getfield(S SC INPUT 2, 
getfield(S SC, INPUT 2, 


getfield(S SC, INPUT 2 


empty boxes 
end 
close(H STAB IN2) 
sc status 


case 'cnx' 
analysis 
close (gcf) 
case 'backl' 
options 
close (H, PERF, IN1) 
case 'back2' 
stability control input. 1 
close (H PERF IN?) 
case "print" 
set(gcf, 
set(gcf,'PaperPosition',[.5 
print -dwinc 
case ‘return’ 
janrad98 
close all 
case "quit" 
quot gui 
case 'about' 
about, janrad 
case 'mesh' 


WE | oa c 
specu yz 
'alplow')|. 
1571 
661 
7 
LOEW!) | 
"vvl" YE 


(detafdalpfu” al 


cp” 
^xcdgd Ws... 
YES”) 


“adan”)|. 
ә. 
Mensa | 
Het lee 
'dbimddele')|... 
'dalmddela')|... 


'dthetotddelp')|. 
'sidearm')|... 
amar) 


'PaperOrientation' , 'landscape') 


5300071) 
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airfoil mesh 
case 'ok' 

close (H AF MESH) 
end 
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24. 


fu 


de de de ge 00 ge ge oe 
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lo 
gi 
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A 
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DE 


stab out 1.m 


Nericn stab cut ll) 

This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


Created for JANRAD version 6.0 by LT David A. Heathorn 
ad stab out 1 


obal Amat Bmat H STAB OUT 
ad mat temp 


=Amat(1:8,1:8); 
=Bmat(1:8,1:4); 


STAB OUT (= Eigure('Coler',[0.8 0:8 0.8], 
'Colormap',matO0, z 
'PointerShapeCData',mati, 5 
'Name','Linear Model of Helicopter' 
"Position, 12:26 798 534], 
Units pain” 
'NumberTitle','off', 
Tag, Fig. 
= uicontrol('Parent',H STAB OUT, 
"Das points" : 
ив eio: m. 25 189. 175 435.75 207.75], 
'Style','frame' 
‘Tag’, ’Framel’); 
uicontrol('Parent',H STAB OUT, 
0515)” points” : 
om “10: 75 434. 2551602751, 
"Style", “frame” 
md me”): 
ufcenerol0 Parent”,H STAB OUT, 
WES, points’, ... 
5: 7 -““€elor / (0.752941 Ü. 752941 0.7529411, 
'HorizontalAlignment','left', .. 
"рл 41.25 128.25 52.5 255. 151, 
'Style','frame' 
“Tag”, Frame3”): 
uicentrol('Parent',H STAB OUT, 
US WOINCS”, .-. 
75 ( o nccolor', [0.752941 0.752941 0.752941], 
3577576 [5006.25 237.75 93.75 145.5], 
Sele frame" 
'Tag','Frame4'); 
- uimenu('Parent',H STAB OUT, 
'Label','JANRAD Options” 
Ca uuymenul'^'); 
ne Parent” ,b, 
Sea pack’; CODE ESCH DENFonsqurt', 
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'Label','Quit JANRAD' a 
'Tag' ,' JANRAD АК, ı 


uimenu('Parent',b, 


'Callback', —. Outi fen return” 
‘Label’, ’Return to Begining’, : 
'"Tag','JANRAD OptionsSubuimenul” F 


uimenu('Parent',b, 


"Caliback”, 55 7 1 fen deltasnput >, 


“Enable ofl", 


'Label','Change Input Parameters' 
'Tag','Subuimenu1'); 


uimenu(”ParenE,b, 


'Callback','performance input fcn about', 
'Label','About Janrad 98 ...', 


“SeparatcE”,”on” 


r 


“Tag”, “Subuimenul ’ ); 


uicontrol('Parent', 
‘Units points’ 


N=STABZOUT 


5 1465. 75 C 5010225 20756 
5:5 (eave to File’ 
Zee ten save” ,... 
Tag’) Pushbuttonl”)- 
“STAB OUT. 


uicontrol('Parent' 
JUN HES points” 


'BackgroundColor' 


"Feorisize”, 18, 


#[0,. 752941 0.) 752941. 0 752504112 


Position 415805 375.75. 322.5 18.75], 
"String, A Matrix of the form xdot-AxciBu' y 


(Style ии 


U"pag','StatioToxE2'): 


uicontrol('Parent', 
“Units” #@#points” 


EH STAB OUT, 


'BackgroundColor” , [0. 752941 Ü 752941 0752941717 


"pene$ize” 18) 


Boston b 58:92 25 92.25 18.75], 
“Sering” 65 Hetrix” 


‘Style’ 20 


"Tag! Seen ) 


acon Loli Parent’ 
EE boints” 


„SAB OUT, 


de clone 1466 5 94. 5 114075 25.2515 
'String','”Coupled Response” 
Cal back “stabtout 1 fen dra 

Aad '"PusubuUttoni'). 


uicentrol( Parent”, 
“Units”, points” 


H STAB OUT, 


‘BackgroundColor MD 7522410 757110 771 
'FontName','arial', x 


'FontSize' "3, 


‘Position’ 112 255 Bop 57 


Метт 5001) 
“Style”, text”, 


“Las” ти 257 

"HESTAB OUT, 
'"Umets','points', 
' BackgroundColor’ 


uies ol? Parent’ 


s0. 752941 0.752941 0-752942 06 
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'FontName','arial', 

'FontSize' 7, : 

' Position’ 5 SEER 25.75.1512 

275756 A(L,2), 

Style text”, <<. 

“1ag /StaticTextl”), 
uircontrol('Parent',H STAB OUT, 

5—: BEY 

'FontName','arial', 

'FontSize' o, s 

'Position' (170. 25 356.25 45 15], 

*5cking/,Aa(1l,4), 

Style Cext', : 

‘Taq’; Stacicrextl” ); 
Uicentrol( Parent” ,H STAB OUT, 

e 

*BonENeme','arial*, 

'FontSize' 7, ун 

"Position" (118. 5 2505254021 - 

Serine ean L$); 

CSEV Le CORE NM. ws 

“Tag , StatıcTextl”), 
urconerol  Parent” HSTAB OUT, 

"Units77”coints”, 

"FontName”,“arlial”, ... 

"FontSize”,/, 

'Position' .[327. 175 8564 45 15), 

String ATIL 7), 

“56 texti; e 

‘Tag, StatictTextl’); 
urconbrot(i^Parent',H STAB' OUT, ... 

27... 5 

"HentName”, 'arlal', ... 

'FontSize' 7 zə 

"Position" 1379. 5 25625 25 15], 

“Strang All. 8) , 

OSE GERE y, ... 

maga “StaticTextl'): 
uicontrol('Parent',H STAB OUT, 

27 

" FontName” ,”arıal”, 

'FontSize' 7, z: 

"Dosition” 1275. 25 35602545 151, 

2.55 11.6), -.. 

s EZie”,"ESXZE(, e 

75: “StaticText1') - 
uicontrol('Parent',H STAB OUT, 

15. -—. 

"FontMName”,”arial”, ... 

'FontSize' 7, T 

‘Position’ 1222 356. 2745150 7 

75:71:67 1/5), 

'Style','text', : 

“Tag”, StaticTextl/): 
uicontrol('Parent',H STAB OUT, 

Units”, points" 

'FontName','arial', 
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‘FontSize 1 
‘Position’ "1222. 75 330-275-045 151. 
*SEring" „A(2, E 
“Style” Cc, 
"Tag" 5. NG 
vier I Parent',H STAB OUT, 
“Units”, points” 
'FontName','arial', 
eh wą 22. 
“Position k5 330.75 45 1515 
String (20), 
“Style”, text”, : 
“ma” ,“StaticTexti”): 
uicentro Parent” .H STAB OUT, 
2050. 
‘FontName’,’arial’, ... 
'FontSize' 7, S 
EE EE 5 5350.75 45 15], 
"Sering” (А(2, 8), 
Style’, text’, 
“Tag” /StaticTextİ” NG 
uer Parent'”,H STAB OUT, 
ep 5 
'FontName','arial', 
'FontSize' m 5 
' Position’ 1327. 75 330 5 A5 TS] 
'String',A(2,7), 
"Seyle ” , text”, .. 
‘Tag’ BtaElCTexti”)? 
uicontrol('Parent',H STAB OUT, 
25... 
“Bon.Name”,ariıal”, «.« 
(FontSize! 7 
'Position' 1118. 5 330575 415-151, 
serin” A(2?2): 
“eyle”, text”, 
Taq” stener VG 
uer STAB QUT, 
LUNES AE PONES, ee 
'FontName','arial', 
"FontSize”,7T, : 
‘Position’ 1170. 25 220 75 451212 
Beag AO d]. 
“566716” € , 2... 
Tag Statietexti”); 
uicontrol('Parent',H STAB OUT, 
“"UHTE€”” points” 
'FontName','arial', 
“Bomb5ize 1d, eos 
‘Position’, [6b 330.75.45 15], 
SELINA ALZ Ah. «4 
“Style”, text". 
“Tag' ""StatleTexti” 7 
ulcihttor e Parent',H STAB OUT, ... 
“Units points” 
'FontName','arial', 
"BONESIze 1. 2.1 
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276c2646n:, 1135 5 330 45 151, 

2 :10074(2.1), 

75:57:1- , text” o. 

2 lac StaticTextl’); 
uicontrol('Parent',H STAB OUT, 

“Units”, points’ 

'FontName', cs. 

“EenHESiZ€”,7, - 

Position! (13. ES 20755 45 15), 

aScrang',A(3,1), 

Gete text”, : 

"nag staticrest1"): 
uicontrol('Parent',H STAB OUT, 

rts polnts” 

'FontName'/,'arial', 

“EonESize”,7, .. 

”Position", [65. 25 30725 452151, 

$SEring/ E 20 

Style”, text”, 

‘Tag’ те"), 
dico roll” Parent',H STAB OUT, 

"Units", "points" 

‘FontName’,’arial’, ... 

'FontSize',7, 

Position’, [170. 25 50755 “5150 

256::09 53741) —.. 

"Style" "text", : 

Tag, Statierextl’ ); 
uicontrol('Parent',H STAB OUT, 

unos”, points’ 

‘FontName’,’arial’, 

"FontSize”,7, . 

“Position” .[118. E 307.5 45 15]; 

AO). 

"Seylic , text”, : 

1-7” “StaticText1l'): 
uicontrol('Parent',H STAB OUT, 

25... 

‘FontName’,’arial’, 

‘FontSize’ 7, 

‘Position’ , (327. 75 3075 15:15: 

Ge "ET 

5575 tevyvt”, ... 

Mag SraticText1'): 
uicontrol('Parent',H STAB OUT, 

—-. 

" FontName” Er 

'FontSize' E : 

'Position' 1379. 5 20755 757181) 

Serna’ pA (se 6) ; 

“Seyle , texe”, : 

8-7 “StaticTextl') : 
üumscontrol('Parent',H STAB OUT, 

Ee 2. 

'FontName','arial', 

'FontSize' 7 : 

‘Position’ |. [275. 25 00755 4551, 
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‘String Mas 6)» 
"Style texte, 


'Tag' Stati Texti’ 7 


uic m Parent',H STAB OUT, 


Units" —. 
'FontName' 
‘FontSize’ 12, 2 


Serial”, 


eee 


"Position , (222. 75 3015 4511, 


SELINA”, ASS), 
'Style','text^, 


'Tag' 75:55: NG 


emne Parent',H STAB OUT, 


“units” 505 
‘FontName’ 
'FontSize' 7, E 


position” 1222. 75 284.25 45 


Style”, — 


larval’, 


"Tag" ,"StaticText1” 


Ni i Parent',H STAB OUT, 


(arts, points’ 
'FontName' 
"FonESize”,7, 


' Position’ , 1275. 25 284.25 45 


"SEring' A(4 6) 
“Sevle texta 


.ərial”, 


"pag "StatricTexel'); 


uicontrol('Parent',H STAB OUT, 


Whats .. 
‘FontName’ 
"FoneSize” 7, SE 


zarial”, 


57: 


fu” 


“Position! 1379. 5 2251 75745 157 


'String',A(499), 
'Stvle','text', 


. e 


"Tag" | OSEALICTERET" > 


AA Parent',H STAB OUT, 


“Unus” 
'FontName' 
‘FontSize’ 7, E 


2. 


“arial”, 


әт 


'Position' , (327. 75 284.25 45 .. 


SELINA (2,1) 
"Style" text. 


“Tag” EC SI ) 


ulcera Parent',H STAB OUT, 


'Units’ D 
'FontName' 
'FontSize' 7, 


“aria l= 


. 


* ә 


‘Position’ (118. E 28% 2504313] 


”Sering” AA), 
‘Style, text | 


“Tag *StaticTextl^); 
uicontrol('Parent',H STAB OUT, 


Unies ә 
'FontName' 
'FontSize' 7, 


tarial’, 


e e o 


"Position" , [170. .25 204.25 45 101, 


"String AU 1), 


eee 
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. o o 


Eve. “text”, s 

1-4 StaticTextl”): 
uicontrol('Parent',H STAB OUT, 

25... 

'FontName','arial', 

'FontSize' 7, 5 

“Position” 166 284. 25 85 15], 

“eninə” .A(4,2), 

'Style','text', E 

“Tag StaticTextl'): 
uicontrol('Parent',H. STAB OUT, 

Zunltso points”, 

'FontName','arial', 

"FontSi26”,7, . 

'Position' . (13. 5 284. 25 451151, 

*SEEFingó,A(4,1), 

style” “text”, : 

maq w sEaticText1"); 
uicontrol('Parent',H STAB OUT, 

iliniEs”, points”, 

‘FontName’,’arial’, 

"PontSize',7, 

'Posrtion' 113. B: 261. 75385 151, 

255559 25.0: 

‘Style’, ‘text’, : 

mag taticTextl”): 
uicontrol('Parent',H STAB OUT, 

FUmulus”? polnes” 

'FontName','arial', 

"FonetSize”,7.,.. 

‘Position’ 166 261. 75 457115), 

“SEr 100” 74(5,22, 

“66716” text”, : 

Tage StatrcTexti'); 
uicontrol('Parent',H STAB OUT, 

auUprts' polnts' 

'FontName','arial', 

'FontSize',7, 

‘Position’ "1170. 25 261175 45 15]: 

“string”, A(5,4), 

(Style text", 

"Tag 5 etext); 
udar ro EL” Parent',H STAB OUT, 

E el 

‘FontName’,’arial’, 

‘FontSize’ 7. S 

' Position’ (118. 5 20172 45 ТЕДИ 

"Sirin ” (A(5, 3), 

'Style','text', . 

"Tag" E 05 
uieonerel (' Parent’ ,H STAB OUT, 

СА eri. 

‘FontName’,’arial’, 

‘FontSize’ 7 : 

'Position' 1327. “75 251.75, 45015), 

"String" A(35,7), 

Style text", 
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b 


‘Tag’, StaticText1'): 
uicontrol('Parent',H STAB OUT, 
—-. 
'FontName','arial', 
'FontSize' T, A 
“Position” (379. E: 261.75 25157 
String n 05 8), 
Style”, text’, 
“Tag” ""StsEleText17)7 
niesen Parent”, H STAB OUT, ... 
o 
‘FontName’,’arial’, 
'FontSize' 7, : 
PN 25 25]€ 75.45 153 
“String”, Aİ(5,6), 
Style’, text’, 
‘Tag’ r ocali eText i jc 
cero E Parent” H_STAB_OUT, 
Eat EE eh <<< 
‘FontName’,’arial’, 
'"PontSize',7, . 
"Eceieron”, 1222. CE 261.75 45015] 
2500 5155, 
"Style", text”, ++. 
Tag, Stabierext Lj 
uicontrol('Parent' ,H_STAB_OUT, 
05: SONA 
'FontName','arial', 
‘FontSize’ 7, 
2527611707. 75 237.756 45:55 
"String ayA(6,5), ... 
Style” ¿ Eext”, 
ag” 7555. 
ace rolu. Parent'.H STAB OUT, ... 
"Units? points” 
'FontName','arial', 
"FontSuze”,7, . 
‘Position! (275. 25 237.75 45 151 
String A(6,6)- «.:. 
Stevie’ 7 text") 
‘Tag’ (55: cTextl): 
bies czci (© Parent',H STAB OUT, 
Unites’) Бет, 
—.. 10. 752941 0.752941 0.75294] 
'FontName','arial', .. 
'FontSize' ^7, o 
‘Position’ | (379. 5 297 5 45015). 
"String A65, 8); 
Style’, text’, : 
"Tagq','StaticTextl'); 
uicontrol('Parent',H STAB OUT, 
5. 
'FontName' E 
'FontSize' 7, : 
‘Position’ 1327. 75 237.75 45 15], 
"OEIIBq  AU57), 
“Style”, text’, 
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1700”, StaticTextl”): 
uicontrol('Parent',H STAB OUT, 
„OJCA 
'FontName' ,'arial', 
'FontSize' 7, : 
xu on" MIS. 5 7 7707725 151, 
BOEING LALO NB) —-- 
ESEVvIG', "Ltext^, .. 
“Taq” 57 Jus 
on Parent',H STAB OUT, 
— elut 
'FontName','arial', 
'FontSize' SR 2. 
Position” (170. 25 237005 45158], 
“Sering :A(6,4), --. 
*Style’,’ text’, 
“Tag E 
Eo Parent',H STAB OUT, 
2. 
'FontName','arial', ... 
‘FontSize’ EN å 
‘Position’ NL 237. 75045 151, 
“SETTING JA(6,2), 
style text’, 
‘Tag’ 75. 
ar Parent',H STAB OUT, 
Eco. 
'FontName','arial', 
'FontSize' 7, 5 
' Position’ , (13. 5 227786 45 51, 
UStrsng^.A(6,1). 
56826 text', ... 
mag, SEaEieTextl"'); 
uicontrol('Parent',H STAB OUT, 
тҝ 
" FontName” er 
'FontSize' o 
' Position’ "113. E “215. 25 45 151, 
"Strang ,A(7,1), 
565036 , text”, . 
‘Tag’ Ӧс етехс1“). 
изи Parent',H STAB OUT, 
Eu T 
‘FontName’,’arial’, ... 
'FontSize' 7, = 
‘Position’ , [66 215. 25 55 154), 
String” .A(7, 2 
257716 text”, 
"Tag" те „> 
ato] Parent',H STAB OUT, 
NOTES points", ... 
кә 0.75294] «0-7 75294117 
'FontName','arial', 
'FontSize' 7, 
' Position’ 1170. 25 239.25 45715], 
»scripq",A(7,4), 
“Style”, Gert’, 
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li 


Taga StaticTextl Jo 
uicontrol (fFarent”,H STAB OUT, 
Ели DE. 
‘FontName’,’arial’, 
'FontSize' a z 
' Position’ 1118. 5 215.25 45 1577 
"String" AE p 
‘Style’, "text 
‘Tag’ 5—- 17 
Met Parent',H, STAB OUT, 
eo 
'FontName','arial', 
'FontSize' 12, S 
' Position' 1327. 75 215.25 45 154, 
tebxange A0 qu 
‘Style! text”. : 
"Tag. tStatreTextlt^). 
uicontrol('Parent',H STAB OUT, 
1. 
'FontName','arial', 
'FontSize' 7, Sie 
*Position/.lS79. 5 215.25 45 151 
String" A(T, Bie 
‘Style’ ,’ texte: 
"mag Sca eme tic jus 
0100001550, H STAB OUT, 
"Varese points”, . 
‘BackgroundColor’ .[0. 752941 0.752941 0, 752947 
'FontName','arial', S 
#“FOntSize 77 >: 
'Position' "1275. 25 215.25 45 154, 
"Otring',At 790), 
‘Style; text, 
‘Tag I SEE OPERE. JE: 
icon ele Parent',H STAB OUT, 
ka S. 
'FontName','arial', ... 
'FontSize' P .. 
position” |222. 75 21525 45 15)” 
"String" A(7,5): 
206xle” “text с̧и) 
"magq”,“StaticText1”): 
uicontrol('Parent',H STAB OUT, 
000 ə. 
‘FontName’,’arial’, 
‘FontSize’ 7, 5 
‘Position’ . (222. 75 1942259452 EEN 
'String',A(8,5), 
“Style”, text”, : 
Tag, 4StaticTextl MW 
ulcontrol(' Parent” Å STAB OUT, ... 
mo | 
'FontName','arial', 
'FontSize' E E 
‘Position’ „1275. 25 193.5 4515] STP 
"String ,a(8,6), 
“Style”, text”, 
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drag. ^SbpatricTextl'):; 
uicontrol('Parent',H STAB OUT, 
E o nto 
'FontName','arial', 
'FontSize' EJ : 
(Pest tion’ 1379. E 1393.58 45 15], 
SSering ,A(B, 8), 
‘Style’, ’ text’, 
‘Tag’ кҝ ти des 
wieenerol Parent',H STAB OUT, 
ka 
'FontName','arial', 
'FontSize' 7. : 
"Position" 5 "Uns 1930545715], 
String AIS. 7), 
“Style”, “text”, : 
“TAG!, StaticTextl'): 
uicontrol('Parent',H STAB OUT, 
-. 
'FontName','arial', 
'FontSize' 7 , 
'Position' 1118. 5 HANG JE TS]. se 
“SELLING” AN8, 3), 
Etvle £teXt”,.... 
“Tag #StaticTextl”): 
uicontrol('Parent',H STAB OUT, 
00000 
'FontName','arial', 
'FontSize' 7, a 
‘Position’ 1170. 25 10755 4518), 
“Strang’,A(s, 4), 
“Style”, text”, 
ac 77:55: jus 
uicti n Parent',H STAB OUT, 
neca EG 
'FontName','arial', 
‘FontSize’ 7, Y 
' Position’ 166 193. 5 415-151). 
‘Strang’ .A(8,2), 
Style”, text, .. 
“Tag” :7:7:-— E 
E Parent” ,H STAB OUT, 
in”) DİRSƏ , -: 
——-.”””" 0775294170) 7529411, 
'FontName','arial', : 
'FontSize' 7, S 
śgositicn (13. 5 O? ДЕ LS JE 
"String" .A(8, 1), 
"Suyle” ,” text”, 
“Tag” D> estatietext 1’ 11 
ии Parent',H STAB OUT, 
NOTES. pors” 2 
5021610) 366. 5 14. 25 114.75 23.25], 
'String','Modify Inputs and Retrim' 
^Caltlback' "stabsout lI fen modin’ 
‘Tag’, ’Pushbuttonl’); 
uicontrol('Parent',H STAB OUT, 
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"Units BONES. er 

505 ta 0.75294100. 7529202] 
'FontName','arial', 

'FontSize' 7 å 

‘Position’ "1220. 5 3 45 15], 

Si BT 

Srl 7057 

"maq: Statrefecel”): 

b - uicontrol('Parent',H STAB OUT, 
тк. 
'FontName','arial', 

'FontSize' 7 z 

'Position' (273 3. 75 4S 15]; 
"Serng BARN, 

"Style" "text, : 

"TAG, StaticText]”): 

b - uicontrol('Parent',H STAB OUT, 
500 0 
'FontName','arial', 

‘FontSize’ KS ous 

‘Position’ 1377. 25 2275 45 15], 
“SEEING BIS), ии: 

“Style”, text”, : 

Tag’ > Staticiectl?): 

5 — uicontrol(“Parent” Å STAB OUT, 
тк 
'FontName','arial', 

'FontSize' 7, 2 

'Position' | [325. D Sk TS ASI 
'*SEring';B(8,3), 

Style’, text” | 1... 

Tü”, ”StaticTextl”): 

b = uicontrol('Parent',H STAB OUT, 
e : 
'FontName','arial', ... 
‘FontSize’ “ R 
ER E 25.5 45-15], 
*SEring",B6/, 3), 

"Style", text a 
‘Tag’ Pre 

B= M o Parent',H STAB OUT, 
"Ungts pOLMeEs 4 ... 
'BackgroundColor',[0.752941 0.752941 0.75294 MW ... 
'FontName','arial', 
"HƏneSize”,7, .. 

"Position” "1377. 25 25,5 45 LS]; 
"String BIT 9), 

"Style. text", cn 

‘Tage StatieTexti”), 

Б = uicontrol('Parent',H STAB OUT, 
Си 
'FontName','arial', 

‘FontSize’ F. .. 
"Boston. 25. 5 45 15], 
"String,B(7,2), 

“Style”, “text. 

‘Tag’ 5606 js 
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uicontrol('Parent',H STAB OUT, 
BR lt 
"EontName”, ”arial”, ... 
' FontSize' 7 å 
'Position' "1220. 5 2567545 151, 
25” .BÜ7,İ), 
Style”, "text", 3 
"Dag','StaticTextl'); 
uicontrol('Parent',H STAB OUT, 
ти ə 
'FontName','arial', ... 
‘FontSize’ 7 ks 
‘Position’ | (220. 5 48 45 15], 
"SEGiNQG/ B(6,1), 
“6ev16 "test", о. 
“Tag” 575 Text. ə 
Mess ии Parent”, H STAB OlT, ... 
10000... 5 
'FontName','arial', ... 
'FontSize' 7 
'Position' 1273 48 45 15], 
String В(6,2), 
goce text”, . 
“Tag” EE ys 
uicontrol(” Parent',H STAB OUT, ... 
Ic ee ee e 
‘FontName’,’arial’, ... 
"EeneSize”,/, ... 
“ESC 1577.25 48 45 15], 
String” BIG,4), 
tvile "text", . 
“rod” SteticTextl”): 
uicontrol('Parent',H STAB OUT, 
“Unies” , points’ 
"FontName”, “arial”, ... 
“FoneSize”,7, . 
'Posstion' "1325, 5 a 
STE Bl)... 
“Style”, 'text', 
“Тас” 7:5-.. b: 
бизи ии. Parent',H STAB OUT, 
Ed 
'FontName','arial', 
‘FontSize’ Es T 
' Position' 7- 5 1515, 
Geene B(5,3), 
“Style”, text”, ... 
aug StatıicTextl”): 
uicontrol('Parent',H STAB OUT, 
re R әд 
" FontName” E 
‘FontSize’ 7, : 
'Position' 1377. .25 122545 16” 
Zotrimng B5 4). 
Style t£texE”? .. 
“Tag” sta re 7 
o Parent',H STAB OUT, 
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o wd 
'FontName','arial', 
'FontSize' . 4 
Position" „l2 73 72 AS LSI 
String. .BI5, 2) 
"Style", "text. 
‘Tag’ sta e l 
teen AE Parent',H, STAB OUT, 
cumit S DONES 2 
'FontName','arial', 
'FontSize',7, 2 
Position" "1220. 5 72 45 151. 
"String BS IV 
Style m n text 
'Tag' 5:5 5: 
he Parent',H STAB OUT, 
PE EE 
'FontName','arial', 
"EontSize" 7, 5 
“Position” | [220. 5 94.5 45 15], 
“SERIN BI. 
“GEyle” exe, 
“bag” EcL tj: 
илли Parent',H STAB OUT, 
E Verges | BZ 
'FontName','arial', 
'FontSize' . å 
‘Position’ 1273 94. 5456 15176 
"String (472), 
"Style Stetin: 
'"Tag','StatricTexti'); 
uicontrol('Parent',H STAB OUT, 
Mts. PONES) ли: 
'FontName','arial', 
"FontSize", 7, aes 
“Bosıtıon” 102725 910 5 45 15]. 
"String (5201). 
"Style tert’, S 
"mag" "StaticTextl"): 
uicontrol('Parent',H STAB OUT, 


ки Z 
"FontName”, arial’, 
'FontSize' T, ə 


‘Position’ E 5 5435/45 151: 

"String' B1 3) 

^Seyle','text', 

'Tag' E ) 
145551 Parent',H STAB OUT, 

DE E CE 

'FontName' ,'arial', 

'FontSize' 7 A 

‘Position’ "1325. 5 ИЛ 46 151, 

'Strimnq' B3). 

SGV let TEX ir. 

‘Tag's, StatıcTextl”)” 
uicontrol('Parent',H STAB OUT, 

“Unus e Po Ints 0. 
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'FontName','arial', 
‘FontSize’ 2, 


'Position' 1377. 25 117 45 
2:177::8(6342)1, ... 


“Style”, text”, 


"Tag" a a текет- lə 
udelt Parent',H STAB OUT, 


200. 
" FontName” ,”arial”, 
‘FontSize’ En 


“Position',[272. 25 dal” 45 


3 minal B(3,2). 
style”, text. 


ag, 'StaticTextl'): 
uicontrol('Parent',H STAB OUT, 


ee, 
"HoneName”, ”arıal”, 
"EomeSize” 7 


ləl, 


r. 


' Position' , 1220. 5 qi aot aD 15], 


SEEING B(31), oe 


"Style", text", 


Mao StaticTextl"):; 
uicontrol('Parent',H STAB OUT, 


75. 
'FontName','arial', 
'FontSize' . A 


‘Position’ "1220. 5 1302 4111, 


Sening B2 D), 
asbwles, Lex, 22. 


(Rag Statiectextl’); 
uicontrol('Parent',H STAB OUT, 


57. 
'FontName','arial', 
'FontSize' 7, 5 


"Position" 1273 idi 45 151, 


"Strino  Bl2,2), 
“Style”, text”, 


"rao Кит NG 
uideo o Parent’,H_STAB_OUT, 


ки 
" FontName” 
‘FontSize’ ES 


"Position" 757 25 141:15 151: 2: 


JP). 0 


"sevle”, text”, 


“Tag. StaticText1'): 
uaGontze (Parent ',H STAB OUT, 


2. 
'FontName','arial', 
'FontSize' E 


'Position' 1325. 5 141 45 15], 


"otrırg”.Bİ2,9), 
"pude texts saa 


Tag”, StaticTextl'): 
ülrcontrol( Parent”,H STAB OUT, 


Arts) 66:56” 
'FontName','arial', 
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'FontSize 7 
'Position' NES 5 166.585 15], 
ти 
'Style','text', ; 
"maş” /“StaticTextel”?: 
icontrol('Parent',H STAB OUT, 
"Units", posts" 
'FontName','arial', 
FontSize. 
‘Position’ 1377. 25 MGS. seas. Lod 
"String BA), 
“Style” , text”, 
1:9: Em Je 
151: Parent',H STAB OUT, 
"Units”, point” a: 
"BackgroundColor”, (0752941890 7529421902752947T717 
'FontName','arial', 
"FontSize”,7, d 
‘Position’ 1273 166. 5 45 15], 
"String BILD), 
"Style text”, : 
‘Tag’, StaticTexztl 4): 

b = uicontrol('Parent',H STAB OUT, 
”Wnits', "pornes , > 
2: ET 752941 0.752941) 027529415 
'FontName' m iis 3 
'FontSize' 7, 2 
‘Position’ [219 165. 75-45 151), 
String B(t,1), 
style” text”, 

“189: 5705. 


D 
" 
е 
ә 


b 
" 


(5555553533 


b - uicontrol('Parent',H STAB OUT, 
ilini” pin” 
"BacEgroundZolor” 10 752941 0.752941 027529417 
”FontSize' 18, 8 
dementis left T ET. 
"Position, [449.25/348.75 23.25 27. 1, 
STEIN X= 
Even reet S 
“Tag”, StaticText3 8): 

b = uicontrol('Parent',H STAB OUT, 
"UprbSs' Done en x ex 
‘Backqroundeolor’, [0.752941 Ü: 752941 0275256217 
'FontSize',18, : 
ии ии SI: 
us tonu 5085 354.75 32.725 22. S 
“SEEING "u^. 
We cede, : 
"Tag”, StaticTexts”)” 

Br uicontrol( Parent”,H STAB GUT, 
“UR TES cin” mat 
"Backgrounaco los 10:752941 0075254700 75 7 
"FontsSize'^,18, S 
"HorizontalAlignment”, “left”, 
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575 ии [a1Q 25 295.5 23.25 23.25], 
ск, “ми”, 
' Style’ Ecc 
eg E me VG 
vr Parent',H STAB OUT, 
100166 "POINES", „az 
sBaekgroundcolor",[0-752941 0.752941 0.752941], 
“Henesoize”,18, ... 
'HorizontalAlignment’,’left’, ... 
#Posie ona k49.25 269.25 23.25 23.25], 
"String, 4 
5eEYİe”, text”, : 
“Tag”, StatıcText4”), 
uicontrol('Parent',H STAB OUT, 
"Unrcs','m56i1nts'. 21. 
"Baeckogrounacolor”, [07752941 0.752941 0.752941], 
'FontSize' ,18, 
siorizontalaliganment'",'"left", ... 
BEOS NEON 1449.25 242.25 41.25 23.25], 
“String”, theta' 
‘Style’ E 
"Tag" 25577) 
ӱл ти Parent',H, STAB, OUT, 
“Unite”,”pBoints” 
"RontSize' I8, ..: 
"Herizontalafrıgnment”, left”, ... 
6055” 102831559239 251, 
Kennen Oh 
'Style', 5 
‘Tag’ 75: 
que Parent',H STAB OUT, 
‘Unites’ , points’ 
#Eomcsize , TO, ... 
2065 IE ment^ SI” en 
"Posten 11419 25 189 23.25 23. 25], 
SEEING pr 
705016 ex”. 
"Tag" "StaticTekt4' NG, 
iie ET 7 Parent',H STAB OUT, 
25:77175-. ən 
spackoroundcolor' ,[0.752941 0.752941 0.752941], 
"FontSize”,18, : 
177777 5 0nmenE”, a 04 
Position’ Он 252215. 25025 .25 23. 25], 
"Sting 
Lum : 
“Tag”, StaticText4'): 
uicontrol('Parent',H STAB OUT, 
*UMIES% points”, ... 
"BackcoreunaCalór ,10.752941 0.752941 0.752941], 
" FontSize” ,18, J ` 
Z2Hords2zontalATrgnment','left', ... 
“556366 1449025 136.5 23.25 23.2517 
SEEING, LİF), 
' Style’ MEO : 
“Tag” 75577: Je 
WSSE CM Parent',H STAB OUT, 
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Ores’, “pointes” jo sa: 
'Backgaroundcolor'.[0.752941 0.752941 0.252042 1]9 
*EontSize „18, s 
'HorizontalAljgnment','left'., ..- 
"Position [508.5 243 50:25 23 251, 
"String pedal]. 
«Styles —— 
169: Tex be 
uicontrol('Parent',H STAB OUT, 
A P 
‘BackgroundColor’, [0.752941 0.752941 0.752941) 
‘FontSize’, 16, Bes 
“HörizontalAliğnmente”,”1efE7 | 
"Position vl506 269258 9 2500 37 0] 
JSering lat Meye.. 
Style 0 text” : 
“Tag”, StaticText4 NG 
uicontrol('Parent',H, STAB OUT, 
"DAS. DOES 22.2 
BackgroundColor lO. 75294100: 752941 0 752981] 
"Pontsize”,18, 3M 
#Horizontaladignment':, left”, a: 
255) 290 28850 2507302515 
#SEKING ” cəl: 
‘Style’ 565 
' Tag’ EE е4- 7 
ducontcelt Parent',H STAB OUT, 
ER E 
ZHackgroundcolor' [0.752941 0.752941 0.75294 1]5 
"HontSize 3665 
“HorizontalAliğnment”, left”, «.« 
“Position, 1449.25 222.5.22 2522 251) 
ASECING 7 buds. 
‘Style’ 20007 
“Tag” en > 
ducem CI Ie Parent',H STAB OUT, 
‘Units. "points 111. 
ZHacskgsoundeolor'.[0.752941 0.752941 0.752941). 
"Hontsr2e 167. 
"HorizontalAlignment”, iecift”, ... 
“POSITION a508 5 323.25 83.25 23.25]; 
"String "lieng. EVE’, 
"Style" "text, : 
'"Tag^,'StaticText4'); 
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— stab out 1 fcn.m 


function stab out 1 fen(Action) 


9 


% “5:5 Callback function for stab out I.m 
% Written for JANRAD version 6.0 by LT David A. Heathorn 


global SSSTAB ENPUT 1 S STAB INPUT 2 S PERF INPUT S PERF OUTPUT A B 
COUNT HATS... 
H_STAB_OUT 


if isempty (nargin) 
return 
end 


switch Action 

case 'cr' 
time freq resp 
close(H STAB OUT) 
return 


case 'save' 
Sc save 
return 


case 'modin' 
COUNT=1% 
performance input 
close(H STAB OUT) 
return 


case 'print' 
set(gcf,'PaperOrientation','landscape') 
seblae  PaperPosition',[.5 .5 10 7.51) 
print -dwinc 


case 'return' 
janrad98 
close all 


case 'quit' 
quit>gui 


case ‘about’ 
about_janrad 


case 'delta input' 
performance, input 


end 
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5 


dax . 


stability and control.m 


function stability andseombEsols 


% JANRAD 98 VERSION 6.0 


% This is the machine-generated representation of a Handle Graphics 


object 


% and its children. Note that handle values may change when these 
objects 

are re-created. This may cause problems with any callbacks written to 
depend on the value of the handle at the time the object was saved. 


de dP ge ge oe 


oP AP 


% 


To reopen this object, just type the name of the M-file at the MATLAB 
prompt. The M-file and its associated MAT-file must be on your path. 


Warning screen to indicate that Performance Module must be run before 
Stability and Control Analysis can be performed. 


Written for Janrad version 6.0 by LT David A. Heathorn 


load stability and control 


a 


figure('Units','normalized', 


“Color”, [0.8 058508], 

"Colormap” ,mat0, 

'MenuBar','none' 

‘Name’ Stability 2 Control Error” 

mem “Orn, 

Һә ер ти „matt, «. 

Position 10: 190625 О. 383333 0.446875 OE SAS ASR 


250” Figh’): 
urcontrol('Parent',a, 


^UnrES "normalized"; .. 

CERO Sunc ES [0 752941 0. 752941 ls 101, 
^Positiom',[0:.0139860050263636 0.972028. 0.955353], 
'Style','frame', 

"Tag','Framel*')s 


uycontrol('Parent',à 


“Units”, normali1zed", 

*Callbaek”,*eleselgef) ” 

"Fonteize”,14, ... 

"EoneMeioght “bold”, ——. 

"Position (0-388112 0.109091 0202797 0. 1816161, 
“SE RING: NG uu 

"Tag , Pushbutteonl”?” 


uicontrolí('Parent',a, 


"Units”,”normalized”, . 

“BackgroundColor pill. 752941 0075001105 Ди, 
‘FontSize’, 12, ..- 

”FohtNeighe bold", ++ 

“Position 19. 0839161 00515152 0.811189 033454557 


‘String’, Stability and Control can only be run after the Performance 


Function 


style” text”, 
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hag’, ’StaticTextl1’); 

bos urcontrol('Parent',a, 
nits. normalized“, ... 
aBacgnsoundCcolor',[0.752941 0.752941 0.752941], 
*BomtSsize”,12, er 
ZxcneWeight'.'bold', ... 
Sesion 50.332168 0.357576 0.318182 0.127273], 
SETTING”, SORRY!” , 
Ma IEA > ess sss 
‘Tage, Staticriext2”); 
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2” stability control input 1.m 


function stabrlitv9econtrolsigputeu) 

$ GUI window to display and/or edit input 

$ This is the machine-generated representation of a Handle Graphics 
object 

$ and its children. Note that handle values may change when these 
objects 

$ are re-created. This may cause problems with any callbacks written to 
$ depend on the value of the handle at the time the object was saved. 

5 

$ To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 


$ First GUI screen to input stability and control paramaters. 

$ Written for JANRAD version 6.0 by LT David A. Heathorn 

Mood stability control input_1 

global H STAB INI S STAB INPUT 1 S STAB INPUT NAME Ss SC INPUT 


if -isempty (NAME) 
eval(['load ',NAME]) 
unstructure stab input 
structure stab input 1 
else 
load create new stab 
Structure stab input 1 
end 


H STAB IN1 - figure('Units','normalized', 
“Color LO BO 808]. 
7507 ,matü,... 
'CreateFcn','global “MESH VAL, MESH VALz0;;' : 
‘Name’, ’Stability and Control Parameters PAGA 1”, 
EE POETE 
Poe Dar xın. 
“Bosition” 19 0025:0- 0466667 0.9975, 0801 
(ag E192 


005 uicontrol(” Parent”,H STAB 1М1, 
ŚUNBES/,/normalized, "e 
BackgroundColor , (0. 752941 0.75292 15077,2989] = 
“Position”, [0.0100251:0.513109 0:318296,0:365168], 
‘style’, frame” 
'Tag','Framel'); 

D € uicontrol('Parent',H STAB INI, 
‘nts norma lized?, >> 
"Backgrounacolon 50s 752941 075294130. SANT eee 
"Position”, 10.0100281 0011226 0::1704: 074905771( 
“Style”, frame” 
"Tag, -Eramez'); 

b = uicontrol('Parent',H STAB IN1, 
“Units”. nermalızedc”, . 
"BackgroundColor”,10. 752941 0.752941507 752995319] 
“Positlon”,10:058316 O 181766 | 
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'Style','frame' 
“Tag” ,”Frames3”): 
udseemtrol('Parent',H STAB INI, 
aunits', Hm 11-60”. ск 
ansclaroundColor*'.,[0O. 752941 0752941 0.752941], 
"PE CTON  , [00679198 0.0674157 0.309524 0.835206], 
'Style','frame' 
‘Tag 7 Frame4”)” 


" 


uimenu('Parent',H STAB IN1, 
'Label','JANRAD Options' 
"Tag','uimenul'); 
- uimenu('Parent',b, 
“Callback”, performance input fcn quit”, 
'Label','Quit JANRAD’ ə 
'Tag', 'JANRAD ә nı, lq 
uimenu('Parent',b, 
'Callback', Ки input. cn return” 
'Label','Return to Begining' =: 
"Tag','JANRAD ри ии T 
uimenu('Parent',b, 
EN input fon delta, input', 
“Enable , off; : 
'Label','Change Input Parameters' 
‘Tag’, ’Subuimenul’); 
= uimenu(’Parent’,b, 
'Callback','performance input fcn about’, 
'Label','About Janrad 98 ...', 
'Separator','on' 
'Tag','Subuimenul'); 
uicontrol('Parent',H STAB IN1, 
zUDnTESC^ ^normalized', .. 
‘BackgroundColor’, (0. 752941 0275224107 75221, 
”FontSize”, 14, ... 
Fontverght “belde. 
‘Position , [01122807 00942603 0.763158 0..0692884], 
'String','STABILITY AND CONTROL PARAMETERS (PAGE 1 OF 2)', 
‘Style’, 277: 
“Tag” E 3 
eol Parent',H STAB INI1, 
“Units”, 'normalized', . 
' BackgroundColor’, 10. 752941 0.752921 0 7852941], 
“FonESize”,14, ... 
arontWeight',' boldty „2. 
“EositTon” 1025017270? 0709052493 Ü 294486 0.0898876], 
'String','MAIN ROTOR PARAMETERS’, 
Style" 5 
‘Tag’ Eet Jes 
ui ol Parent',H STAB INI1, 
"Unrts^,'normalrzed'; .. 
“Backgaroundcolor "lo. 752941 0575229241 0752941101) 
Position  177012710770773 017477 0.05364621, 
“String”, “Flapping Moment of Inertia (slug-ft^2)', 
eye , text”, : 
Tag” StatleText2"); 
= uicontrol(’ Parent’ ,H_STAB_IN1, 
"Units','normalrzed*, 
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d) 


d) 


BackgroundColors nt el, 2 
'Callback','Ibsget(gcbo,"'String'');S STAB.INPUT 1l.lIbsstramum(Ib); 


'Position^7[0.215506 0.751923 0.0985545 0.025075 90 


String 1B. 
“Style”, “edit”, 1 
'Tag','EditText1'); 


uicontrol('Parent',H STAB INL, 


“Units, 'normalized” ya. 

кн SIE 752941 0.752921 0: 75291 1] 
"Position", [0.019%09 90.694781 0.17477 0.053854652]., 
"Suring”,”Hub кк Above Waterline (ft)', 
'Style' 5. 

‘Tag’ 551: ız 


eon Parent” ,H STAB IN1, 


"units", nmormalizęd”, Sg 
BackgroundColor [I VE 
'Callback','hwmdsget(gcbo,''String'');S STABSINPUTCICHEmdzsEtr2rnum (hm 


‘Position’, 10.215506 0.694231 0.0985545 0.04807691], 
"String" Nma, 

Dën Leit fetteg ... 

'Tag','EditText1'); 


uicontrol('Parent',H STAB INI, 


(Units tnormallzed' |: 

"HackgroundColor 710. 752941 0.752941 0.752941], 
‘Position’ ,[0 2021025 0640305) 0.174777 0. 0Sie 
'String','Hub Fuselege Station (ft)', 

Style” "text, 22. 

“TAG”, /StaticText2 le 


uicontrol('Parent' ,H STAB INI, 


‘Units’, ‘normalized’, 
roue [TT 1], : 
"Callibacik” , 555517: 5” S STAB INPUT 1.1md=str2num(lm 


"Pos3tjon', [0-215506 0.540385 0.0985545 0051 
"Sering” imd, 

SUE”, “cara : 

"Tag","Bdierextl"); 


ulcentrol ( (Parent ”,H STAR IN], 


'"Unrts' ,^normallized', Mm 

“Backgroundtolor 7107 752941 0 BZ34T STE 
"Posıtion”,10:0197109 0 -582692:20717477 020517 
"Gtring ,”Hub Position Right of Buttline (it) | 
‘Style, text; E 

"Tag , StaticeText2”): 


uicontrol('Parent',H STAB IN1, 


‘Units’, normalized’, . 
‘BackgroundColor’ [1 1 1], oe 
Gala m0 6950 ту 009 Emo mum ти 


"Dosition”, 10:21222 0:50252709V0.0972405 0 0420767291: 
Ser ing +. yma, 

"Style" edit a 

"Һас “FditTextl v. 


uicontrol('Parent',H STAB IN1, 


“Units”, “normalized". 
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b 


d) 


d) 


abpgckogroundcolor' [0.752941 0.752941 0.752941], 

İ -— -.on 10 0197109 0.521154 0.17477 0.05384621, 
'String','Mast Incidence (negative fwd-degrees)', 
sey le”, text’, : 

rog", StaticTexr2"):; 


uicontrol(“Parent”,H.STAB.INI, 


‘Wares’, normalized’, . 
"Backgrounacolor',[1 1 iJ; : 
iİ 116ace ) imegetisebo, 'String”'):5 STAB INPUT 1.im-str2num(im) 


: con 10 2155060 526646 0 0285545 0.0480769), 


“etrins”,im, 
Sele", "edit", 2545 
(Tag, “EditText1”): 


uleontrol(' Parent” Å STAB INL, 


umts! ^normalized', . 

2backeabroundColor', I0. 752941 05762941 0775293117 
"FonESize“,14, ... 

“wont welgmise bold Te. 

’Position’, [0.022339 0.403846 0.296978 0.0903846], 
‘String’, ’VERTICAL FIN PARAMETERS’, 

“SEyie”, “text”, : 

Атаси "StabtreTextl'). 


uicontrol('Parent',H STAB INL, 


mits; 'mormalized’, .. 

EE OR 752941 B5 29M1 O: 752941], : 
“EOsitron “1090215077 0 353040 0173456 0.0480763], 
'String','Height Above waterline (ft)', 
'Style','text', : 

“Tag StaticText2'): 


uicontrol('Parent',H STAB INL, 


"Ungts'o*gormalized', .. 
*'Baekgróounacelor",[l 1 1], : 
21775 EIERE Ed Sen EES 


"Bosition” 10 215506 0725179272 0.0985545 0.0480769], 
+SEring',hvQ. 

^Stvle','edit', 

Tag’, EditText1'): 


uicontrol('Parent',H STAB IN1, 


"Unjts''neormalized', .. 

#BackgroundCelor”,[0. 752941 PEE ATO 757941]. 
Pe lon, [0.0341656 0.294231 01114771 0.05], 
'String','Fuselage Station (ft)', 

STYLE" exe”, : 

“Tag”, StatcicTextU2”): 


uicontrol(“Parent”,H.STAB.INI, 


“"Units”, ‘normalized’, .. 
seBdekgroundcolor^',[1 1 1], : 
“Callback”  1vdegetisebo, “SETİUN9:“):S STAB INPUT 1.1vdestr2num(iv 


Position [0 215506 0.292251 0- 0985545 UT ST 
Seria”, we: 

"Style", “CUTE, : 

“130 ) EGİTexXx tt”): 


uicontrol(“Parent”,H.STAB.INI, 


"Unies , ‘normalized’, 
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'BackgroundColor^, [05952941 0.752941 0. 152900 s 
'PosSErono0.0341655 0 239452 DE T7325 OLON 11 
‘String’, Position Right But lane) e 
"Style “ERİ, 
"Mag" 655 o NG: 
bz EEN Parent',H STAB IN1, 
“Units #normalized!, "| 
^Backgreundeolor 21171 1], e 
'Callbackię yvd=getfgcbo, wStrinqg'”);S_STAE_INPUN 1 yvd=strznum(yyv 


Position", [10.215506 0.236598 0.090554510 09807691. 
"String ',yvd; 
“Style”, edit. : 
“та”, “Еа1СТехк 19), 
b = uicontrol('Parent',H_STAB_IN1, 
'ungsrs' "normalized. 
BackgroundColor [0752881 0. 7825981 0. 150 90g] = 
"Position , (0.034165600.:18269200:173456 60296069]. 
'String','Alpha Zero Lift (degrees)', : 
"Style € c 
"maq ^sStatjeText2'); 
b = uicontrol('Parent',H STAB IN1, 
“Units” 'normalized', 
"BaekdrouhdColor [1 1 1], z 
'Callback', haus d EN STAB INPUT 1l.alplov-(str 
Eemum(alpbov));', > 
‘Position’ [06 "215506 0.180769 0. 0985545 0.0480769], 
'Strilng' ,alplev, 
styles edi”. : 
mag Fletter. 
bz ulcontroll Parent” ,H STAB IN], 
"Units”,”normalızed 5 
‘BackgroundColor’, [0. 752941 0275294102 75204 d = 
‘Position’, [0-03 465660 . 12692396. 17345660 .0480769), 
"Sering” ,“CL HƏ” 
"Style. “text? e 
"Tag", StatieText?'): 
b = uicontrol('Parent',H STAB INL, 
^'Units'.'nosmalized', . 
‘Background@elor’, (1 Å 11, : 
'Callback^;, p a sco c s Ы 
x=str2num(clvertmax);', . 
"Position uot 215506 0.125 0.0985545 0.0480769], 
'String',clvertmax, 
“Style”, edit’, 
'"Tag','EditTesxeM ' NG 
b= mee Parent',H STAB INI, 
“Units normalized . 
' BackgroundColor’, [0. 752941 0.752941 02 75294 an 
'Position',[0.0354796 ©.0692308) 0.173456 0105576921, 
'String','Dynamic Pressure Ratio (page 489-Prouty)', 
“Seyle”,”text”, : 
“Nag, StaticText2'); 
b = uicontrol('Parent' ,H_STAB_IN1, 
'Units','normalized', 3 
Backgroundcolors [1 1 m 
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gj 


li 


H 


leal aek EOV AEE Gebo String" ');:S STAB INPUT 1.qvq=str2num(av 


‘Position’, [0.215539 0.071161 0.0977444 0.0486891], 
ZSLEIDng',.gwd, 
'Style','edit', . 
1-7 EditTexti”): 
uicontrol ('Parent' ,H STAB IN1, 
^'UnsEÉs*,'normalized', . 
‘BackgroundColor’, [(Q. 752941 03752941 0752981], ... 
икиси [00350870 0.0262112 0.172932 0 0337079], 
'String','Lift Curve Slope' 
“Style”, text”, : 
“1077 StaticText2” ): 
uxiecontrol('Parent',H STAB IN1, 
"Units", 27175: : 
"BackgroundColor”,1i1 1 1), S 
EN Eg TAR INPUT 1 av=str2num(av); 


“Position, [0.214286 0.0187266 020977444 00468465], 
String" av; 
'Otvle','edit', ... 
"raq , EdiEtT€exti”): 

uicontrol('Parent',H STAB IN1, 
¿Un uES* 25250 ue 
o 752941 O. 752941601752941], 
"Fontsøze” 14, .. 
ee 2. JE 
PNG 0.796905 0.288336 0.0889749), 
'String','HORIZONTAL TAIL PARAMETERS', 
"Style','text*', à 
'Tag','StaticText1'); 

uicontrol('Parent',H STAB IN1, 
'Units4, normalized J. 
ERN CEN "EO: 752941 0.752941 0.752941], 
EE HC ON 00 359109 0.727799 0.173001 0:0463321 5 
‘String’, ’Height Above Waterline (ft)’, 
Style", "text", ; 
mag StatieText2"); 

uicontrol('Parent',H STAB IN1, 
'Units','normalized', : 
EE EE iL 11, m 
'Callback','hhdsget(gcbo,''String'');S STAB INPUT 1.hhd=str2num(hh 


'Position',[0.55308 0.729207 0.0982962 0.0483559], 
"String"  hnå, 
“Style”, “edit”, d 
“Tag, 'EditTextl'): 
uicontrol('Parent' ,H STAB IN1, 
"VRIES", normalized', . 
“BackgroundColor, (0. 752941 0.752941 0.752940), 
Eo-izton 1017709219 07659574 0.174312 04604835591, 
"Sering”, Fuselage StatTefn” (ft)”, 
“Style”, text”, a 
Mag  StatreText2"): 
uicontrol('Parent',H STAB IN1, 
Unites’, normalized, 
Backgroundeollorn (C1 1], 


"Callback”, hd-get(gebo,” String” "):5.STAB. INPUT2Z1 ihecseronum(ihb 


'Position',[0.554391 0.659574 0.0982962 0: 066 3559, 
“String be, 
"Style", edit c. 
"Tag”, BanELEZCT”); 
Ы = uicontrol('Parent',H STAB INI1, 
“Una ts” Pa PKO PULA E 
SEE GKGWGWAACOlOG BO 752941 052941 0.762941), 
^RonteSize6t 5 Mm 
'Position' ro, 360053 0.550395 0.198456 0.0480769], 
“String”, "Position Right or Buttline (£6)1:7) 
"Bevi et”), 5 
"Tag ,*StabilcText2); 
D. - uicontrol('Parent',H STAB INI, 
Untes | normalized!) e 
сата ин nri 1 1], ə 
"Callback”, “yha”dğetidebo,” String ")USSSTABESBNPUT-1.vhdsstr2numyh 


"Position", [0.554391 0.59581 0.0982962 0.0483559]5 
"Gürin” YAĞ, 
‘Style, edit’, 
"Tag”,“EditTexti“”)” 
Ə — uiceontrol(” Parent ,H.STAB INI, 
“Units normalızed”, . 
reach groundcalen: nos 752941 0.752941 "0.752941 bee... 
‘Position’, (0, 360419 07528046 0.174312 0 0435559), 
'String','Alpha Zero Lift (degrees)', 
"Style" text’, . 
UTag','StaticText2'): 
be= urrcontrol('Parent',H STAB INI, 
“Units”, mermalized e 
EE “21 ij. ; 
"Callback”, ”alpTeoh-get(gebo,” String” /78£5STAB INPUT 1-alplohestr2 
im(alploh) ; "M 
“Position”. (0% 554391 0.529981 0 0362962 0:046 55717: 
'String',al!ploh; 
"Style'.'edit', : 
“Tag, EditTextl 7): 
b - uicontrol ('Parent',H STAB IN1, 
"Units", nermelized”, .. 
"HackgroundColerz о, 752941 Ü. 752941 0.75294117 
‘Position’, [0.360419 0.464217 0.174312 0.0483559], 
'String','Angle of Incidence (degrees)', 
‘Style’, ә 
' Tag’ ""steticText2” NG: 
b z uicontrol(' Parent',H STAB IN1, 
“Unrts”, nermalızed”, S 
BackgroundColor’ “dır 1), z 
*CallDaek" ,*ih=get(gcbom''String" ”);5_STAB_INPUT_1.3h=5strZznum(ih); 


“Position”, [00554391 0466151 0.0982962 0. 018355917 
String” 10, 

"Geyle”, “edit”, : 

"Tag” /”EĞİtTextel”): 

Ы = uicontrol('Parent’,H STAB IN], 

‘Units’, ‘normalized’, 
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BackgroundColor 04752941 02752941 0.752941], 
иен 1610 900 3950119 0.398453 0.174312 0.0483559], 
String”, “Lift Curve §Slope’, 
'Style' I 
"Tag" 55. ticText2” јә: 
boz Bremer. Parent',H STAB IN1, 
'Units','normalized', 
@BackgroundColor?, [1 1 1], : 
775 — scbob ^s ing WM  SNGTABRTNPUT- 1.ahsstr2BRÉ (ah); 


“Position, [0.5543291 0.400387 0.0982962 0.0483559], 

string ab, 

#seyle”, edit, : 

‘Tag’ , EditTextl”): 

b = uicontrol(’ Parent’ ,H_STAB_IN1, 
“mats”, normalized”, с. 
7755 5 ә ии vos 752941 ü. 1529414007 7529411, 
Posta”, (OssG0056 0.328846 025173456 020538462), 
‘String’, ’Dynamic Pressure Ratio (page 489 Prouty)', 
Style” Lex” : 
"nag “StaticText2'): 

b - uicontrol('Parent',H STAB INI, 

'Units','normalized', 

:Ü55 [SSE 1], NG 

“Gallipack 9, qnq—Get (gcbo, ’’String’ ‘)>;S_STABSINPUT_1 .qhq=str2num (qh 


‘Position: , (02554891 0.336557 0.0982962 090483559], 
“String ah 
'Style','edit', : 
Has” EdirtTexel”): 
uicontrol(“Parent”,H.STAB.INI, 
"Umits”, normalized”, . 
1 m 0105 DO. 752941 De75291190- 75294107 
“Position l0. .358739 0.260538 0.174990 3059184262], 
'String','Rotor Downwash Ratio (page 489 Prouty)', 
‘Style’ 25 
‘Tag’ Ee NG 
diconbrolW" Parent',H STAB IN1, 
'Units','normalized', S 
EE üb 1), IG 
Calillbació var lEget(acbo,* String'"*):S STAB INPUT W*vhvil-stranumi 
“hv122777 
“Position”, 1075545921 0272727 0.09682762 0.0483559], 
‘Sening  vhvi, 
‘Style’,’edit’, : 
"Tag 7 EdiEText1”): 
b s uicontrol('Parent',H STAB IN1, 
‘Units’, ‘normalized’, . 
aro NA “alo: 752941 0754941507 7522411 m 
“Fosil 7 (0.560053 0.1961 54600173456 4020557692), 
‘String’,’Fuselage Downwash Ratio (page 489 Prouty)’, 
Style”, tex : 
“Tag”. “StaticText2”): 
b - uicontrol('Parent',H, STAB IN], 
“Um.ts normalized”, . 
To ckground a „al JE 1], 


o 
It 


D 
H 
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'Callback','detafdalpfh-get(gcbo,''String'');S STAB INPUT 1.detafd 


alpfh=str2num(detafdalpfh) ;’ 


d) 


d) 


" 


‘Position’, (0.554391 01205963 0.0982962 07048355917 
'String',detafdalpfh, 

style”, "edit". 

"mag"."EditrTextlo)e 


uicontrol('Parent',H STAB INI1, 


"Units” “normalızed” ..* 

' BackgroundColor’, [0. 752941 0.752941 E 
(FontSize, 14 APR 

'"EontweWht^, ‘porat .. 

POSi tionad [0-686763 0: 798839 0.288336 0.06059 7431 
String”, TAIL ROTOR PARAMETERS', 

Style", text”, : 

“Tag?,”staticrexti”??” 


uicontrol('Parent',H STAB INI, 


"ur sd 255 +5 

кк лы AOS 752941 Qc 75289 OSI 25 
"Position 2107690073 0729207 0 17800100 04642111, 
‘String’, 'Height Above Waterline (ft)', 

“style! Kag 

169) ,”EtaticText2” ys 


ven Parent',H STAB 141, 


"Units" SE. : 
PN el leit ij, TE 
'Callback','htdsget(gcbo,''String^^)»; SSSTAB INPUTOT hecc-scesenumiht 


“Position | [0.680734 0.729207 0.0962962 040483559]. 
‘String’ eed, 

"Seyle”, edit”, e 

"maq'.'EditTexEl'). 


uicontrol('Parent',H STAB IN1, 


"Unres”,”normalized:, Vax 

DEENEN uşa 752941 0752941 0.752941]. : 
"Position" [00688013 00659574 (00114312 0300483559], 
‘String’,’TR Fuselage Station (ft)’ 

“SEVYİ€”, E€”E 7 : 

"Tag, StaticText2 4). 


uicontrol('Parent',H STAB INI, 


‘Units’ inernmalized”. í 
EE EE kini 1J, : 
'Callback','ltdszget(gcbo, (Strong '):5 STAB INPUTCE: TEdssEr2nmumilt 


'Position',[0.882045 0.659574 0.0982962 0.0453559]; 
"String Тир, 

(Style < editi Coes 

Mao. EditTextl”)- 


uicontrol('Parent',H STAB INI, 


(Units? 25:75:55 sö: 

нас о. 752941 0.752941 0995294179 
"FontSize”6, . 

‘Position’ POR 688073 05591876 0. 174312 O. 0483559]. 
'String',' Position Right of Buttline (ft)', 

Jea a : 

“Tag”, StaticText2”): 


uicontrol('Parent',H STAB INI1, 


"mares SF Pnormalızed”” 
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gBackocseundcotor';[1 1:1], og 
se llBaek*,*vrtd=cet(gche,''String'');S_STABSINPUT 1.ytd=str2num(yt 
dz”. 
2 -:-10n  10.8820458 0.59381 0.0982962 0.0483559], 
AGE TING” ,YEA, 
“Style”, “edit”, : 
TAG  EditTextl”): 
b = uicontrol('Parent',H STAB INI1, 
“Units”, normal@zed', .. 
BackgroundColor dior 752941 0275:2721u07752941L17 
“1es:610n 77 1012023072 0:528046 Ü.174312 0.0483559] , 
‘String’, ‘Number of Blades’ 
“eyle”, 5—- 
‘Tag’ 55 gest 
DA= ve Parent',H STAB IN1, 
“Units”, normalized', .. 
"Hackecoundcolor', [Ll 1 1], T: 
“:2115-c6: bc 00 ”” ring '):s STAB INPUTST.bt-str2num(bt); 


"Position”, ,10.882045 0.529981 s0. 098296240. 0483559], 
"Skering' bl, 
'Style','edit', 3 
Race. Babe Text Ll’) 
Б = ulcentrol( Parent” Å STAB INL, 
Ż0NIES normalrzed'. .. 
'BackgroundColor',[O0. 752941 0.752941] 02752932115. 
“BOS EST. 
‘String’, Blade Chord (1607) 
"Style, text, 
“Tag? КБ. Ns 
Б = uiceontrol( “Parent ',H STAB. INI, 
‘Unies’. normalized’, 
‘Backgrounacolor’, [1 1 1], Å 
‘Callback’;  Ce-aer(cebo, String") :S STAB INPUT 1.ct=str2numict): 


"Posicion” 10:862045 0.466151 0.0982962 0.0483559], 
VOEG „GE, 
Style”, “edit”, E 
mac”, Edit Textl*); 
b = uxeontrol('Parent',H STAB INL, 
'Units','normalized', .. 
"BackgroundColor',I[O0. 752941 0879529421 0.752941], : 
7505 [0 688073 00015 0 17212 0704000591, 
'String','Blade Radius (ft)', 
'Style' En 
'Tag' 7 
Je ume EO (C Parent',H STAB INI1, 
“Units', 'normalized', : 
"EBackgroundColor' [1 1 1], : 
#Galdback”. Rezget (echo, String” '):5 STAB INPUT 1.Rt=str2num(Rt); 


*"Posttron', [0.882045 0.400387 0.0982962 0.0483559], 
String”. RG; 

“Style”, “edit”, : 

“dag”, Ediclexel”)” 

b € urcontrol(” Parent”,H STAB INL, 

Units”, normalized”, 
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'BackogroundColor^, [0.752941 0.75294100. 75294340 | 
‘Position [01698005 0.334623 0 178312 020483555], 
‘String’, ‘Lift Curve Slope’ 

Style” 75: 

"Tag" 556605 i 


DE: die ии Parent',H STAB IN1, 
‘Units Normalized’; .. 
ae ANEL 1], 
'Callback','atsget(gcbo,''String'');S STAB INPUT l.at-str2num(at); 
Position” ,[0.882045 0.336557 0.0982962 0 04835559. 
"String", at, 
Style” "EGLE, : 
"Taq, EditTextel”), 
p= uicontrol( Parent, H STAB TINI, 
"Units”, ”normalized”, .. 
ир [04 752941 0.7529419800052942199 
Position 1052587254 0.261539 001517477: 0 85554252] 
'String','Rotational Velocity (rad/sec)', 
"style, text. ; 
mag" "Statieréese2"'): 
1 Vlcontrol( Parent” ,H STAB INI. 
"Units", mormalized', 
pcc 1 1], -— 
'Callback','ohmtzget(gcbo,''String'') S -STABSINPUTSI-ohmtsstro2numi 
omut);', 


“Position” [0882015 0.2/2/27 0.0982962 07015 556 
IS erino "elime, 
^Style','edit', : 

"Tag”, EditTextil”): 

Б = uicontrol(”Parent”,H.STAB.INI, 
Zunjte'2^noermalized^- .-- 
;CBackgroundcolor,[0.752941 0.752941 0.75292 
“Position”, [0.687254 0.482308 0.17477 0 0598154], 
'String','Flap Moment of Inertia (slug-ft^2)', 
‘Style’ ter 
“Taq” StaticTe”7 )s 


DN kie aoi Parent',H STAB INÅ1, 

"Units'. 251) : 

*Backgroundcolor',[1l 1 11, sete 

'Callback','Ibt-get(gcbo,''String'');S STAB INPUT 1.Ibt-str2num(Ib 
BE, 


" Position”, L0:882045 0. 206963 0.0952962 0703591) 
"String; IDE, 
Style”, “edit... 
“mag EdittTextl Os 
Ы = uicontrol('Parent',H STAB INL, 
"Un.cee”, nermalızed”, o. 
" BackgroundColor”, 10. 752941 0.75294170 7529052 
*Position’, [0.688073 0141199 0174312 4008018535590 
'String','Delta-3 — (degrees)', : 
Style”, text”: 
“Ten star hə 
b = uicontrol('Parent',H_STAB_IN1, 
*Units*,'nermalized”, .. 
‘BackgroundColor’ | (lt 1], 
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75:50 delta “get (gebo,” 'String'”'):S STAB INPUT 1.delta3=str2 
nüm delus0)?”, -.. 
Position" , [07882045 0.145068 0.0982962 0.0464217], 
"5SEring' „delta3, 
#Stvulle? “edit”, ... 
117590  EditTextl”): 
uicontrol('Parent',H STAB IN1, 
205766” , “normalized:, .. 
' BackgroundColor’, [0. 752941 De q529421 99752941]. 
”Position', [0-. 688073 0530077 6941 0174312 0004835591, 
'String','Blade Twist (degrees)', 
“Stylo; “text”, 
"Tag" E TER - JE; 
diecntrol(* Parent',H_STAB_IN1, 
“Units”, normalized”, . 
a lor! öl. 1], : 
"Galıbace”, thetalt”get(uacbo,” “String””):S.STAB-INPUT.1.thetaltest 
r2numfthertaltl:”, ... 
"Posicrou'.[0:982045 0.0793037 0.0982962 040483559], 
‘String, ,;thetalt, 
"Style", "edit", 
"maq , EditTextil”): 
b s usxcontroli^Parent' ,H STAB.IN1, 
‘Units’, normalized’ , 
“Calilback', global S=5C_ INPUT_ 16, 
S SC INPUT 125 STOBETİPUT 1:stab control input fen contl”, 
'"FontSrize',12 ee 
teren Po TUM 
“Pos ETO 77707 511177 Oil 0.164258 0.0807692], 
"Sering” “Cent ne >>", 
"Tag”,“Pushbutton4”), 
b - uicontrol('Parent',H STAB IN1, 
"Units £ normalızed”.. 
'Callback”, ' stab control input fc back1 ', 
'"Bontsize'.12, : 
“BontWe]jght':, bold”, ... 
“Eos en 7107722026 070115385 0.164258 0.08076921, 
"String ”, “€ Back”, 
“Tag”, Pusnbuttonl”)” 
Ы = uicontrol('Parent',H STAB IN1, 
"Units”,”normaTozed”, : 
"Callback = stabscontrolsinput Fea print”, 
‘FontSize’, 125 
"FontMeighe (” bold”, ... 
“Position” 10:509555 0.00961538 0.164258 0.0807692)]9 
"String”,”Print Screen” 
"Taq ,” Pusnbuttonz2”): 
b — uiıcontrol( Parent "H STAB INI, 
"Units','nóormalized", : 
'"Callback',"stab'cemssol input fcn cnx' 
"Rontoize” 12770. : 
ти, bold”, :: 
*Востетси", |0:339028 О, 1 0-164258 0.0807692]5 
*SEring","Caneel*, zu 
"Tac , Pushbutton35”): 


D 
ıı 


D 
" 


assignin('base','S STAB INPUT 1',S STAB INPUT 1); 
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assignin( base.) Sece INPUT So SC IN CUIT 
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28. stability control input 2.m 


EUNCt Tor stability centrol input 2() 
% This is the machine-generated representation of a Handle Graphics 
object 
% and its children. Note that handle values may change when these 
objects 


oe de ge ge oe 


oe 


Second GUI screen to input stability and control paramaters. 


% Written for JANRAD version 6.0 by LT David A. Heathorn 


toad stability control input 2 


are re-created. This may cause problems with any callbacks written to 
depend on the value of the handle at the time the object was saved. 


To reopen this object, just type the name of the M-file at the MATLAB 
prompt. The M-file and its associated MAT-file must be on your path. 


global STABZINA R STPAB_INZ S_STAB_INPUT_1 S STAB INPUT 2 S STAB INPUT 


NAME S SC INPUT 2 


if -isempty (NAME) 
eval(['load ',NAME]) 
unstructure stab input 
structurefstab input 2 
else 
load create new stab 2 
structure stab input 2 
end 


H STAB IN2 - figure('Units','normalized', 
“GoloE , 10:35 0:6 0) 81, 
Roeden ,mat0, 
'CreateFcn','global MESH VAL, MESH_VAL=0;;', R 
"Name”,”Stability and Control Parameters page 2”, 
‘NumberTitle’, ‘off’, 
Me aa. matl, .. 
“Position”, [0.0025 0. 0466667. 90-9975 0.891; 


ag E 
b = uricontroli"Parent',H STAB IN2, 
nats”, noruatrzed', .. 
‘BackgroundColor’ ES 752941 0752941 01752941], 
Zboc)t3ones97012236 0.462777 0.313202 0.452716], 
'Style','frame' 
'Tag','Framel'); 
b = vicontrol( Parent” CN 
Cats normalizZed"”,. x4. 
BackgroundColor Tor 752941 0:752941 0-752541], ... 
EN ronald 0:00271202 0212670 7045505861, 
Style”, “frame” 
“Tag”, “Frame2”), 
Ы = uicontrol('Parent',H STAB IN2, 
"UÜnits”, normalızed”, 


"Backgroundcolor (би 752941 037579013800 152941], 
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'^Position'2[0.344512.0.224719 0.315789 70.689439] 
'Style','frame' 
'Tag','Frame3'); 

uicontrol('Parent',H STAB IN2, 
'Unrits',^normalrzed^ 7 
‘BackgroundColor’, [0. 752941 0: 752941 0.752 91100 
Position mone 2958 0.134831 0.310777 0.779026) 
‘Style’,’frame’ 
"Tag”,” Prame4”)” 


uimenu('Parent',H STAB IN2, 
'Label','JANRAD Options' 
"Tag, 'uimenul^). 
uimenu('Parent',b, 
'Callback”, performance input fen quit’, 
'Label','Quit JANRAD', : 
‘Tag’, 'JANRAD OptionsSubuimenul’ ); 
uimenu('Parent',b, 
'Callback', ICE input fen return” 
‘Label’,’Return to Begining’ 
‘Tag’, ‘JANRAD OBiiknssubuimenii ' ys 
uimenu('Parent',b, : 
ити ит sten delta input | 
'Enable’,’off'’, 
'Label','Change Input Parameters', 
'Tag','Subuimenu1l1'); 
uimenu('Parent',b, 
'Callback','performance input fcn about', 
'Label','About Janrad 98 ...', 
'Separator','on' 
'Tag','Subuimenu1l1'); 
urgontrol( Parene .H STAB IN2, ... 
“Units”, normali zeat m 
'BackgroundcColor’, [0. 752941 0152911 50575292100 
‘FontSize 14. 
”Fontheight', bold”, .. 
"Position”, (0:10:6516 0:917003 0:765156 00007 
'String','STABILITY AND CONTROL PARAMETERS (PAGE 2 OF 2)', 
Style”, text”, : 
'Tag','StatrcText3'); 
uicontrol('Parent',H STAB IN2, 
"Units normali zeci a 2 
"ВасКокоппасоПоР 410 75294710507 75292] 90: 75207] ] 7 
“Pomtsize 04 
'FontWetght”, bold", ... 
"Position? (070225561 00816419 0.:290727 0 08988719. 
'String', RIGGING PARAMETERS', 
"Style" 75 
' Tag’ sta Ter )3 
venn Parent”, H STAB IN2, 
AO ien E 
BackgroundColor’ , (0.752941 0.752941 0770201177 P 
'"Position',[0.0160214 09963359 0.174667 0 0534351, 
‘String = bong SCK Pitch per inch deflection (degrees/in)', 
"Style" ҝә 
"Tag 52505 t2 > 
E Parent',H STAB IN2, 
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dumai esa normalized 
#BackgroundColor”, [1 1 1], : 
‘Callback’ , hadde les get (gcbo, (String '):S STAB INPUT _2.dblmddel 
e=str2num(dblmddele);', .. 
«Position , [0. 217867 177 6072 00 0755545 0.04760111, 
“String: ,dbimddele, 
2551777 dat 
Meg EditTextl')g 
uicontrol('Parent',H STAB IN2, 
amats”, normalized”, .. 
‘BackgroundColor’, [0. 752941 0.452941 0. 4528941], 
Position", [0.0160214 0.708015 0.1749 0205343511, 
'String','Lateral Cyclic Pitch per inch deflection (deg/in)', 
'Style','text', z 
'Tag','StaticText2'); 
uicontrol('Parent',H STAB IN2, 
'Ünits','normalized', . 
“Baekgrounacolor”, [1 1 1], = 
‘Callback’, b modele get(gcbo,''String'');S STAB INPUT 2.dalmddel 
a-str2num(dalmddela);', . 
"Position 10: 217867 0.709369 0209685545 050475011), 
‘String’ ,dalmddela, 
5515 qi : 
"Tag , EditTextl”)” 
b — urconerol” Parent”,H.STAB IN2, 
‘Units’, ‘Normalized’, .. 
Fre „BO. 752941 0 ZPZ%3dD0-7352841], 3 
"Posreson” 0 0160214 Ü7050763 0.173565 0.0515267), 
'String','Collective pitch per inch deflection (deg/in)', 
“Stevie”, text”, : 
*Tag/,"StatiErexE2"); 
b - uicontrol('Parent',H STAB IN2, 
"Units', normalized’ ; : 
"BackgroundColor'.[1 1 1], T 
'Callback','dthetomddelc- a M t ccc "3 
omddelc=str2num(dthetomddelc);’, . 
‘Position’, (0.217867 0. 652008 050985545. 070516252]. 
'String',dthetomddelc, 
SENS edit сл. 
'Tag','EditText1'); 
b = uicontrol('Parent',H STAB IN2, 
"Units pp normalized’, ... 
“E-ckEgroüudtelor” 0.752941 0.752941 0.752941], . 
POS TON pO 01602130 590566 0.1749 0.0528302], 
'String', 'theta0t/pedal deflection (deg/in or deg/deg)', 
SETS) ext”. A 
'Tag','StaticText2'); 
b - uicontrol('Parent',H STAB IN2, 
Dnits' "normalized', .. 
7 roundeolor' zəli. 1), : 
'Callback','dthetotddelp- A O 
otddelp=str2num(dthetotddelp);', .. 
"Boston [00211867 0. 594646 020955543 0105162521 
‘String ,dthetotddelp, 
Style’, edit”, .. 
' Tag’ Mr ин js 
po əbəs İR Parent',H STAB IN2, 


o 
" 


o 
" 
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‘Units’ . normalized’... 

‘BackgroundColor | 10. 752941 0.752941. 0.752941) ış 

‘Position’, [0.0160214 0.530089 021749 0.0528302 lz 

‘String’, ’NOTAR slv twst/defl (deg. or in. travel) 1000 for TR’, 


Style" text. å 

‘Tag’ ,’ StatweText2” ) ; 

b uiceonerol( Esrent | HoSTABSIN2, 

"Unus 12 : 

‘BackgroundColor’ PST 1], 2 

'Callback','sidearm=get (gcbo, ''String'');S_STAB_INPUT_2.sidearm=st 
r2num(sidearm);’, ... 

'Posrtion'[0.218045 0.535561 020897444 020466165), 

'String',sidearm, 

"Style" , "edit", : 

*ragó, *kditrextl 
b - uicontrol('Parent',H STAB IN2, 

"Urngts^. 'normalized', o e 

:BackgroundColor NO. 752941 0275294170 7529411” 

“Position',[0. 0160214 0.466038 0.1749 0, 05094234]. 

'String','Max Rudder Deflection (deg or in. travel)’, 

Style, 5: 

' Tag’ ти dE 
B= 7755: Parent',H STAB IN2, 

‘Units’, ‘normalized’, å 

BackgroundColor’ PLZ 1], — 

'Callback','maxr- get(gcbo, ''String''); S STAB INPUT 2.maxr-str2num( 
1560007 dus 
'"Position',[0.217623 0.479245 0.0987984 0.0471698]. 

String Masa, 

“Style”, edit”, > 

Tag. Bat textil 
Б = uicontrol(’ Parent’ ,H_STAB_IN2, 

‘Units’, ’ normalized, .. 

с иси NG 752941 0,752941 0. 7529419] 

"FontSize' 12000 

Ona Bola, s 

"Position”, 10-0200501 0.400749 0.298246 0.0505618], 

'String','NOTAR PARAMETERS', 

“Style”, tex, 2 

"Tag”,”StatrerTextl”)? 

D - uicontrol('Parent',H STAB IN2, 

“Units! 55 A. 

BackgroundColor” “Lu. 752941 02752941 0 785294114 x 

"Position',[0.0291449 0.357414 0.173418 020361217 |, 

575000: Above waterline (ft)', 

Style; text’; A 

"Tag", StåticText2"): 

PE- uxcoDErol('Parent',H.STAB IN2, 

“UNES Y, ‘normalized’ : 

*"Backgroundcolor",|1 1 1], 2. 

"Callback”, hend-get(gqgcbofyU String)  S STZBEİNPUT 29htnd-estr2num( 
mend) e 
' Position’, [0.21682 0.351923 0.0985545 0.0480769], 
"String Hind. 

e c 
“Tag”, edirTexti" 
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b z uicontrol('Parent',H. STAB. IN2, 


D 
ıı 


Tere 


Smits’, normalized’, .. 

‘BackgroundColor’, [0. 752941 O. 1715290) 08752941]. 
50-66 ,[0.0293725 0.290566 0.1749 0.0509434], 
'String','Boom Fuselage Station (ft)', 
!Style','text', E 

“Tag StaticTexEt2”): 


uicontrol('Parent',H STAB IN2, 


'Units','normalized', 

әт, ala 1 Te 7 

"Gallback” ) iUndegeti(gcbo 7” SEering” ”):S.STAB INPUT 2.ltendestr2numi( 
"Position, 10021632 0029223100-0985545 0.0516 

“66ring” MENG, 

"Seyle edie)... 

“Tag FaltTextl )., 


b - uicontrol('Parent',H STAB IN2, 


^"Umdts','normalized', . 

“BackgroundCelor”,[0. 752941 Дер со ve. 
"Posteton [050299725 07233962 0.173565 0.0490566], 
‘String’, ’Boom Position Right of Butstline"=(ft) % 
‘Style’, text", 

'Tag' ит ” 


B= SEZ Parent',H_STAB_IN2, 


vend) JE 


“Units”. normalized’. >. 
“BackgroundCelor”,[1 1 1], : 
Callback’)  yema=cet(gebo,’’String’’ ) ;S STAB INPUT 2.ytnd=strZnum( 


"Position 021652 0.256558 0.0985545 070480769], 
‘String „vend, 

“Stevie”, edit’, : 

Op3acg^ "EdlETOXEi1'); 


b = uicontrol('Parent',H STAB IN2, 


"nves", normalized”, . 

1757755 ‚Lom 752941 O. 752924800752941]. .8 
"Posen 002935725 0.19434 0.173565 0.0358491], 
'String','NOTAR diameter (ft))', 

^Stylo','text € 

'Tag' 7577: 7 


b= de Parent',H STAB IN2, 

'Units','normalized', 

deo "EI li 1], : 

"Callback” dianegeti(debo, “String” ”)?S STAB INPUT 2.dian=str2numi 
атап) ии, 


*Bostition' ,[0.21682 0.180769 0.0985545m0.04807689], 
“String dian, 

"Style','edit', : 

“Mag”, EGitTextl'); 


b - uicontrol('Parent',H STAB IN2, 


'"Units', 1201126. M 

‘BackgroundColor’, [0. 752941 Oe 5294 TO 5204 tee, 
МЕ on 0029272570 120755 Ü.173565 Ü.05849061, 
“erin” Swirl = at Boom (degrees)', 

'Style' tes M 

'Tag' E 2” pz 


55 dis E TU Parent',H STAB IN2, 


705225”, ”norməlized”. 
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“Packaroundeelez? 1), 
'Callbaek','switl=get(gebo, "String" ');S-STAB_ INPUT 2 -swirl=strznu 
misvir.5” 
‘Position’, [0221682 0712570:0985545 0.04807691, 
‘String’, swirl, 
"Style" Led: . 
“Tag”, Edi)” 
uicontrol('Parent',H STAB IN2, 
'Unrts'^,^nermalized'. .. 
‘BackgroundColor [0. 752941 0.75294189. 752941]. : 
“Position 1057 9” 00792453 0.173565 010399625310 
'String','NOTAR Max Force (lbs)' 
“Seyle”, 5” 
"Tag" 10662 Tex) )3 
uien Parent',H STAB IN2, 
“Wants”, ers» 2 
50575 211.1 11, 
“Callback', Ytmaxn-get /gebo,' ' String” '),8 STAB INPUT 7 .Ytmaxn-str2 
PUM Yeman) a —-. 
'Position’,[0.215506 0.0711538 0.0998686 0.0480769], 
"SEring', Ybmas, 
"Seyle” /”€61t”, dun 
"ag ,“edrcTexti ): 
Би= Vlcentrol (| “Parent! H STAB IN?, 
“Unites , normalized’, .. 
Geeren ace Te no. 752941 03752941 0.3%52941], 
"Poertion',[0.0293725 070113208 0 173555 070529 39209 
'String','Thruster Fuselage Station (ft)' 
Style", 75: 
‘Tag’ Aa Tera” Ja 
= 06:11” Parent',H STAB IN2, 
'"Umdts', normalised’, b 
^BackgroundGelor'^/wWl 1 11, å 
"Callback”, ltend-get (gebo, ' String””):S STAB INPUT 2. 16end-#str2nu 
ET E EE ə 
"Position”, (0.21622 0 0173077 0.0985545 0.0480769|, 
"Sering” Letra; 
'Style','edit', : 
"Tag ”EditTexeli”i, 
uicontrol('Parent',H STAB IN2, 
‘Unies! (normals zea’... 
*BackgrounaColer", [0 752941 02752947 0575294197 
'Pontsize” ,14: Lo 
"EORR ”bolkør, .. 
'Position’, [0.358396 0. 754682 0.286967 0.151685}, 
'String'/,'CG LOCATION & INERTIAS/FUSELAGE PARAMETERS”, 
”Stvle” "text", : 
“Fag /”StaziceTexEl”)” 
b - uicontrol('Parent',H STAB IN2, 
“Units”, 57:——. = 
' BackgroundColor’, [0. 752941 085752941 05294117 
‘Position’, (0. 3564750 . 70419600. 171278 0.0458015), 
‘String’,’CG Height Above Waterline  (ft)' 
”Style” "text" , 
“Tag”, SEeticText2”): 
b - uicontrol('Parent',H STAB IN2, 
"UnTEs Normalized’, 


D 
T 


b 
li 


lox 
H 
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NBESCkgroundColor'. [1-1 1], 3 
57... cce-ce cbo,” “String” ”),S.-STAB INPUT 2.zcgsstr2num(zc 


5 :: on” 10:550591.0 705545 Ü. 0985545 0042280111, 
s “ring” 7209, 
Style” "edit", 23. 
'Tag','EditTextl1'); 
uicontrol('Parent',H STAB IN2, 
“Units”, EE dx 
“BackgroundColor” 710. 752941 DB 052941404752941], 
"Position , (0.556475 "00633588 0.172596 0.049639], 
'String','CG Fuselage Station (ft)', 
“Style”, texti R 
"Tag, StcaticText2”),: 
uicontrol('Parent'/,H STAB IN2, 
‘nies, normalized’, . 
‘BackgroundColor’, [1 al 1], 
'Cadsiback'7'xcgsget(gcbo,''String'');S STAB INPUT 2.xcgsste2num(xc 


*Position',[0.55905 08654799 0.0985545 0.04971321, 
OSE „KET, 
“Style” "edit, ... 
mag / EditTextl”), 
uicontrol('Parent',H STAB IN2, 
"Un.Es”, normalized’, . 
‘BackgroundColor’, [0. 752941 GP 7529411017 
"FontSize”,8, 
'Position' , (0. 356475 0.564885 0.172596 0.0477099), 
5 Urus” CG Pos tion Right of Buttline (ft))', 
“Style”, text’, : 
"Taq StsticText2”): 
uicontrol('Parent',H STAB IN2, 
“Un166 / nermalızed”, ... 
“Esc rounetolor 1 1], e 
'CaWBiEzeR" "yeg=cet (gcbo, '”String"');S_STAB_INPUT _2.ycg=str2num(ye 


“En LO 551905 0.56979 0.0985545 0.04780111, 
"String" ,veg, 
'Style','edit', : 
“Mag”, EditTextl'): 
uicontrol('Parent',H, STAB IN2, 
‘Units’, normalized’, .. 
777 ndcolot 10. 752941 0752941 Ü- 7529111, 
"Positron [0.356475 0.590478 0.173456 0.0478011], 
"Sering”,” s fe re, 
‘Style’ 775 
"Tag" ECC Text?" Jos 
uice Parent',H STAB IN2, 
7Units’, ’normalized’, : 
“Backgrounacolor”, [1 1 11, y 
PN 06 seg ee SESTABUINBUTSA e stee2 num (1 


"posrtrion',T0:551905 0.506692 0.0985545 0.0478011], 
“ring”, 10, 

śSEbyle”,"edlt' ,«.1 

*rag/,"EgiETexE1"); 

ufconurol(” Parent” AA STAB INZ, 
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y) 


z) 


2 


‘Units normalized MN. 

' BackgroundColor’, [0. 752941 0. 7529415 0.752940 
"Position O OMM 0.4389853 0.173565 0.04961893)]7 
"String Slug 2 e 

“Style”, est”, : 

(Tags StabmoText2"): 


uicontrol('Parent',H STAB IN2, 


'Units','normalized', 
"BackgroundtMo mL 1], : 
'Callback','Iyy=get(gcbo,''String'');5S_STABSINPUT 2-lTyy=scrznum(Ty 


'Posztion',[0:551905 0.441683 0.0985545 0.04993] 32]. 
/Sering FT. 

(Style edi... 

^mTag','EdrtTexti' 


uicontrol('Parent',H STAB IN2, 


“Un.” normalızecau a 

Backgrelnaco lo" 210: 752941 0 .752941 0275294017 
‘Position’, [0.356475 0.374761 0.173456 0 047801N]/, 
‘String’ 7 “IZZ 755 EE TZ) 

"SEYİ€ , text”, 

' Tag’  o6cakierext2" js 


contro Me Parent',H STAB IN2, 


"U5n:ts','normalrzed', .. 
75:15 sil. 11, ə 
Callback Izzegetigebo,” “String” ):S STAB INPUT Een Le 


"Position” ,107551790570.276675270:0985245 0:04272001117 2. 
string” .1izz, 

"Seyle”, edit”, Å 

Тас”, EdltTerstl'): 


uicontrol('Parent',H STAB IN2, 


'Units',"nmóorFmalized”, .. 

Bare aa "TIO: 752941 0.752940. 752972) 
"Position" ,[0.356475 0.304015 0.173456 0 05358393], 
Strang, Ixz — SEZ), 

"Sty lex —. 

"Tag: 15505 ) 


nies rror Parent',H STAB IN2, 


‘Units’ ,’normalized’ ; 
“BackgroundColor ’? [1.1 . 
'©alalsack', 'Ixz-get (gebo, ''String''];5_STAB INPUT 2. Ixz-strZnum(Ix 


“Position', [0.:551905 0.313576 0.0985545 0.0478011], 
"Strtting',Ixz; 

'Style','edit', E 

'Mag”., 'EditTextl'): 


uicontrol('Parent',H STAB IN2, 


'Unrts',normalized', . 

Je ronde lom ZAKO 752941 529418007452941]. 
“Position”, [02035614715 0257094 0 1417 0.05353723]P 
'String', 'Fuselage Downwash Ratio (page 513 Prouty)', 
":Stylet exe”, : 

16 "ststrcText2^) 


uicontrol('Parent',H STAB IN2, 


“Units”, normalized", ә. 
PN “b. 1), 


Toz 


vev): 


d) 


d 


ик Dacos wvtvi-getígocebo,''String'');S STAB INPUT 2.vfvl-str2num( 
55 con” 10:5:1205 0 246566 0.0985545 0.0478011), 

7 zin” ,VEVLl, 

Style”, ”edit”, : 

apcct EditTextl'); 


uicontrol('Parent',H STAB IN2, 


antes , normalized! ... 

| Baskgroundceoler",[0.752941 0.752941 0.752941], 
'FontSize',14, .. 

minc? 7:7 DET 

"Pesrbtron',[0968999 05799953 0.289474 0.0898876], 
'String','WING PARAMETERS', 

Style”, text”, 

' Tag’ 55 7. 


disse Parent',H STAB IN2, 


Unat: 'normalized',. .. 

'BackgroundColor', [Gs 752941 095252941 0.752941]; 
'"Position',[0.68594 0.745698 0.173456 0.0458891], 
'String','Height Above Waterline (ft)', 
'Style','text', 

'Tag' a Texto" ne 


uiesntrol(* Parent',H STAB IN2, 


Units," normalized’ faa 
MBackaroundtolor 1 1], 
'Callback','hwdszget(gcbo,''String'');S STAB INPUT 2.hwd-str2num(hw 


"Position',[0788042 0.74761 0.0985545 0.0478011], 
String „nwd, 

Style”, “edit”, E 

"Tag EditTextl'); 


uicontrol('Parent',H STAB IN2, 


‘Unies’, ’ normalized’, .. 

' BackgroundColor’, [0. 752941 0752941159. 78294115 
"Posıtiıon” 1058507 0.674952 0.17477 0.04971321, 
‘String’, Fuselage Station (£t)', 

'Style' 7:5 

"Tag Eu 7 


uicontrol('Parent',H STAB IN2, 


"Units nermalized', . 
' BackgroundColor’, [1 1 1], R 
75121 7 Nå "'string'');S-STAB INBUT 2.lwdestr2num(lw 


Position [09888185 0.676864 0.0985545 090497132], 
“String”, wa, 

Style”, edit”, d 

“Tag” mgEQTETextl'); 


uicontrol('Parent',H STAB IN2, 


"uumgyts^ 'normalized', сә. 

BackgroundColor P0-75294]1 0.752941 ZE 
^Hontorze',5, . 

'Position' 17 68594 07609943 0.173455.0.0478011], 
String’ | Position Right of Buttline (ft)', 

' Style’ - 

“Tag” 7:5: 


disontrolt Parent',H STAB IN2, 


MG 
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d) 


'BackgreundColor ou ли 
‘Callback’, 'ywd=get (gcbo,’’String’’);S_STAB_INPUT_2.ywd=str2num(yw 


‘Position’, 10.881735 0.611855 0.0985545 0.047801 

"String vid. 

‘Style! edit ek 

'Tag','EditText1'); 

uicontrol('Parent',H STAB IN2, 
'"Unitseew^normalseed'»... 
'BackgroundGolor2 109752941 027529410595 75292 Tu 
"Position" [0168594 0.544933 0717477 20.047880 
'String','Alpha Zero Lift (degrees)', 
‘Style | text, S 
"Tag”,“StaticTexe2”): 

uicontrol('Parent',H STAB IN2, 

(Units 2016077 e 

"BackgrourndColor^ pr 11, å 

Callback’, ‘alr lon- et (gebo serino a S TAE ar r EET 


num(alplow);', 


w) 


‘Position’, [0.881735 0.548757 0.0985545 0.04780114p 
'String',alplow, 
"Style “edit AS. 
“maq”, Edit Textu); 

uicontrol (“Parent ,H STAB IN2, 
‘Units’ , 'normalizede, “... 
“BaekgroundColer k00 75254] 0 175294180 7529411, . 
'Positien',[0.68594 0.48183600.173456 000497132]. 
'String', 'Angle of Incidence (degrees), : 
"Style" 7 : 
“Tag” ""StaticText2” jus 


001. Parent',H STAB IN2, 


"Unıts”,”normalızed”, .. 
'BackgroundColor 1 1 1], 
'Callback','iwsget(ügcbo,''Sring'');S STAB INPUT 2.1w-str2num(iw); 


'Posrtron',[0.881735 0.483748 0.0985545 0.04971321, 
‘String TW, 
"Style" "edit, : 
Trad, "EditText1"): 
uicontrol('Parent',H STAB IN2, 
"Units", 'normalized", 
Bar ori 21905 752941 0.752941 0.7529411, 
“Position”, [0063594 0.355641 0.1747] 0 0478011], 
"Streng, Tip bord (ft). 4 
'Style' Bom 
'Tag' eee 7 
uicontrol('Parent',H STAB IN2, 
“Um.ES”,”normalıized”, : 
BackgroundColor ma miN] 1], 
a 5 6 00059 a AA CA ne 


"Dosstion', [0.881735 70.418738 070985545 710902729001 
“String, ,ctw, 

‘Style’,’edit’, ; 

“taga”, EditTextl”): 

uicontrol('Parent',H STAB IN2, 

'Units','normalized', 
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o” 
ıl 


b 
il 


D 
ll 


NICO 


D 
и 


EEseraroundcolsc [05752941 0.752941 0.752941|, 
EDosrtIOR' 20709685942 70.416826 0.17477 0.0478011], 
'String’','Lift Curve Slope’ 

Style, text : 

‘Tag’; StaticText2'): 


ügcoentrol #Parent',H STAB IN2, 


“Units”, Normalized', . 
‘BackgroundColor’, [1 1 CHE : 
“Callback”,“aw-aet/(gcbo, ”' String” '):S STAB INPUT 2.aw-str2num(aw); 


#Pes Iron, [O Bo l5 0. 355641 0. 0985545 00478011], 


5 String’ ‚aw, 
Heerle “edit”, : 
^"mag','EditTexti*'); 


uicontrol('Parent',H STAB IN2, 


‘Unites’, ‘normalized’, .. 

(BackgroundColors (0. 752941 Q.7529410 752941], 
Position MIN. 555900 286807 0.17477m0.05353873], 
"Sebring "Roocaechord (fe, 

”Styler, "text", : 

“Mad” srtaticText2^'); 


urcontrolt'Parent',H STAB IN2, 


Units”, 15 1-0”, ; 
#Backgroundcoler”, [1 1 1], : 
ит SE EE EE Te 


EE TEE 0.0985545 0.0478011], 
AS Erang ELW, 

Style’, edit”, 

‘Tag’  "EditText1" m 


BER NE Parent',H, STAB IN2, 


"URIES”./normalized”, . 

'BackgroundColor',[0. 752941 0. 75292110 75290090 
MN 0217973 0997997. 0.0592984], 
'String','Rotor Downwash Ratio (page 489-Prouty)', 
"Style", tez, E 

"mag! “StaticText2'): 


b = uicontrol (' Parent” H_STAB_IN2, 


vwwvi); 


b 
li 


“UnDTES” nermalızed”,”... 

*Backqroundecler",[1 1 1], : 
'Callback','vwvl=get (gcbo, ''String'');S_STAB_INPUT_2.vwvl=str2num( 
“Esin 1000775 0 225021 0.0985545 0.0478011], 

"Gering” ,vrvl, 

“Style”, edit”, : 

'Tag','EditText1'); 


urceontrol( Parent ,H STAB IN2, 


aute Nemalized”, ... 

sEacokgrounesotor",[0.752941 0,752941 0.752941], 
(Position , [0065594 0 1557 0.173456 0.0497132], 
'String','Fuselage Downwash Ratio (page 489-Prouty)', 
Sele textus S 

“Tag”, StaticText2'): 


b - uxeonvrol('Parent',H STAB IN2, 


Unites , normalized’; xt 
Backoroundtolor [1 1 1], 


'Gallback','detafdalpfw-get(gcbo,''String'');Ss3STABSINPUTS2 detafd 
alpfw-str2num(detafdalpfw);', . 
Position 10 881735.Ö: 162524 0.:0985545 0.047801511, 
'String',detafdalpfw, 
“Style edit”, : 
"Tag, “EditTexel”): 
b = wicontrol(’ Parent’ , H STAB IN. 
“Units”, normalized, n 
"Callback ) global S SC” INPUT 2: 
S SC INPUT.2-S.STAB.INPUT 2:stab.eonetrol input-£en conte2”” 
"FontSize”,12) m 
"FontWelgat is DOLO”, e 
"Posuaeson ” ,10:51117 0:1329 164258 0 :08026921) 
"Serin, “Continue >>", 
“Tag”. Pushbuttond'): 
bos uicontrol('Parent',H STAB IN2, 
'Units','normalized', : 
‘Gallback’,’ Stab control input fen back275 
"EonCSize”,12, .. 
Mutuo n ed — 
'Position',[0.339028 0.0115385 0.164258 0.-0807692].; 
"String. "<< Back”, : 
“Tag”  Poshbouttoni'): 
b = uicontrol('Parent',H STAB IN2, 
‘Units. normalized, : 
'Caldback”, stab control input £cn print”, 
£iHone6iz6 12, 
257. 5707 —- 
'Position',[0.510013 umoT14504 07164219 O 08015271: 
Strang’. Print Screen’, 
“Tag”? Pushbutton2”)” 
5 uicontrol17”Parent” ,H STAB.IN2, 
'Units','normalized', k 
“Gallback stab Control input ten enx’, 
'FontSize',12, : 
ти bold’, dox 
"Position 10. 339119" 0". 101145 0-164219 02080152715 
"String "Cancel, c. 
pU Pona"). 
Des uicontrol('Parent',H STAB IN2, 
units. normalized . 
^"Haekoroundeotor  10:752941 0:752941 0:75294111 
"Fontsize 11. 
"HBoneMeishe” / DOLO” y sa, 
"Bosition” (0 755357 1:0952270.296199 0.0831721), 
'String', 'MAIN ROTOR PARAMETERS', 
'Style’,’ text’, S 
“Tag”, StaticTexti”): 
luz uicontrol('Parent',H.-STAB IN2, 
Units” Fe A 
erroneo To. 752941 007529440475291 
"Position MP 10160212 0.760377 051749 0-0528302]5 
'String','Long Cyclic Pitch per inch deflection (degrees/in)', 
“Style”. “Text. : 
‘Tag’, StaticText2'): 


assignin(”base”,”S STAB INPUT 2',S STAB INPUT 2); 
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assiqnim(’base’,’S SC INPUT 2*,5 5С ТМРОТ 2), 
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29. stby scrn.m 


function stby sern() 

This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


de 00 00 00 oO o? ge 00 


GUI screen to see while plots are being generated 


do 


$ Vritten for GANRAD version 6.0 by LT David A. Heathorn 
icad stby sern 
global H STBY SCRN 


H STPY_SCRN — figure( Color ons 0:8 088G 
'Colormap' ,mat0, 
‘Name’ 75:75 75 
2507 COLERA 5 
Pene UON E ə 
"Postikion [2969724123 331 0209] 
"Tag" Fig): 
& = vicontrol( Parents, H STBY SCR 
Unut”. "DOIEnES" - 
атасы WR .752941 0.752941..0.7529411., 
śpesiElon""M 54.5 278.25 135751, 
2—-— 
“Tag”, “Pramel “): 


b - uicontrol('Parent' ,H STBY SCRN, 
"Units oan S 
Ee Eo 752941 07752941 0.752911]. 
"FontSize”,25, .. 
"Position. 25 95:25 25103754 
'String','Please stand-by' 
‘Style’ eeu 
"Tag" 1 Text: JE 
DES uda NZ Parent” ,H STBY SCRN, 
"Units” / pcines” 2 
EE 50 752941 1752941 0 7522417 
"Eonterze 15 a 
'Position' . [33 18. 75 231 37.5] 
'String', This could take a minute or two', 
SEV le ирс"), $ 
"Tag,  StaticTextl*"); 
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30. Step plotter.m 

$ Step plotter 

$ Written for JANRAD version 6.0 by LT David A. Heathorn 
global Amat Bmat u C T STOP T INC 


D=0; 
t_start=0; 

t inc-T ING: 
t stop-T STOP, 


tst start:t-inc:t stop: 
1507 —— 


for j=: length (Cc) 
16 С(ј,ј)==1 
figure 
(Mun, denl=ss2tf£ (Amat, Bmat(:,1),C(G,:),D); 
E 
[y] =step (num, den,t)'; 
plot (t,y) 
xlabel( time (sec)') 
grid 
if j== 
title('Response of x-velocity (u) to Longitudinal Cyclic 
Step input”) 
ylabel('Velocity (ft/sec)') 
elseif j== 
title('Response of z-velocity (w) to Longitudinal Cyclic 
Step Input’) 
ylabel(‘Velocity (ft/sec) ’) 
elseif j== 
title('Response of Pitch Rate (q) to Longitudinal Cyclic 
Step Input”) 
ylabel( Pitch Rate (rad/sec)') 
elseif j-- 
title('Response of Pitch Angle (theta) to Longitudinal 
Cyclic Step Input') 
ylabel( Pitch Angle (rad.)') 
elseif j-- 
title('Response of y-veloctiy (v) to Longitudinal Cyclic 
Step Input') 
ylabel('Velocity (ft/sec)') 
elseif a” 
title( Response of Roll Rate (p) to Longitudinal Cyclic Step 
INPUT) 
ylabel('Roll Rate (rad/sec)') 
elseif j== 
title('Response of Roll Angle (phi) to Longitudinal Cyclic 
Step Input') 
ylabel( Roll Angle (rad)') 
elseif j== 
title('Response of Yaw Rate (r) to Longitudinal Cyclic Step 
Input") 
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ylabel('Yaw Rate (rad/sec)') 

elseif j== 
title('Response of Yaw Angle (psi) to Longitudinal Cyclic 

Step Input ^o 

ylabel('Yaw Angle(rad)') 

end 

end 
end 


elseif u(2)==1 


for jz1 length c) 


if C(j,j)== 
figure 
{num, den]=ss2tf (Amat, Bmat(:,1),C(j,:),D); 
[y] =step (num, den, t); 
plotie:y) 
xlabel( time (sec)') 
grid 
xlabel( time (sec)') 
Es j== 


title('Response of x-velocity (u) to Collective Step Input’) 


ylabel('Velocity (ft/sec)') 
elseif j== 


title('Response of z-velocity (w) to Collective Step Input') 


ylabel('Velocity (ft/sec)'). 
elseif j== 


title(’Response of Pitch Rate (q) to Collective Step Input’) 


ylabel('Pitch Rate (rad/sec)') 
elseif j-- 
title('Response of Pitch Angle (theta) to Collective Step 


Tuput”) 
ylabel(”Pitch Angle (rad.)”) 
elseif j-- 
title( Response of y-veloctiy (v) to Collective Step Input') 
ylabel(”Velocity (ft/sec)”) 
elsei:f 426 
title('Response of Roll Rate (p) to Collective Step Input') 
ylabel('Roll Rate (rad/sec)') 
else: ==" 
title(’Response of Roll Angle (phi) to Collective Step 
Bnput-') 
ylabel('Roll Angle (rad)') 
elseif j== 
title('Response of Yaw Rate (r) to Collective Step Input') 
ylabel('Yaw Rate (rad/sec)') 
elseif j==9 
title('Response of Yaw Angle (psi) to Collective Step 
"enput”) 
ylabel('Yaw Angle(rad)') 
end 
end 
end 


elseif u(3)== 
for j=l:length(€) 
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A 


figure 
(num, den] =ss2t tk (Amat Bmat(:,1),C(3,:),D); 
[y] =step (num, den, t); 
plott) 
xlabel('time (sec)') 
grid 
TS 
title('Response of x-velocity (u) to Lateral Cyclic Step 
Input) 
ylabel('Velocity (ft/sec)') 
elseif j-- 
title('Response of z-velocity (w) to Lateral Cyclic Step 
impu) 
ylabel('Velocity (ft/sec)') 
elseif j-- 
title('Response of Pitch Rate (q) to Lateral Cyclic Step 
Input') 
ylabel('Pitch Rate (rad/sec)') 
elseif j-- 
title('Response of Pitch Angle (theta) to Lateral Cyclic 
Step Input”) 
ylabel ('Pitch Angle (rad.)') 
elseif j== 
title('Response of y-veloctiy (v) to Lateral Cyclic Step 
Input" ) 
ylabel(’Velocity (ft/sec) ’) 
elseif j== 
title(’Response of Roll Rate (p) to Lateral Cyclic Step 
nub”. 
ylabel('Roll Rate (rad/sec)') 
elseif j== 
title('Response of Roll Angle (phi) to Lateral Cyclic Step 
Inpue') 
ylabel('Roll Angle (rad)') 
elseif j==8 
title('Response of Yaw Rate (r) to Lateral Cyclic Step 
INDIA 
ylabel('Yaw Rate (rad/sec)') 
elseif j== 
title('Response of Yaw Angle (psi) to Lateral Cyclic Step 
Trpurr } 
ylabel(’Yaw Angle(rad) ’) 
end 
end 
end 


elsertf u(4)== 


for ?el:lensthiC) 


if C(j,j)== 
figure 
[num, den] =ss2tf(Amat,Bmat(:,1),C(J,:),D); 
[y]=step(num,den,t); 
plott) 
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xlabel('time (sec) ') 

grid 

if == 
title(’Response of x-velocity (u) to Pedal Step Input’) 
ylabel(’Velocity (ft/sec) ’) 

elseif j== 
title('Response of z-velocity (w) to Pedal Step Input’) 
ylabel('Velocity (ft/sec)') 

elseif j==3 
title(’Response of Pitch Rate (q) to Pedal Step Input’) 
ylabel(”Pitch Rate (rad/sec)”) 

elseif 9 
title('Response of Pitch Angle (theta) to Pedal Step Input') 
ylabel(’Pitch Angle (rad.)’) 

else:£ == 
title('Response of y-veloctiy (v) to Pedal Step Input') 
ylabel('Velocity (ft/sec)') 

elseif j== 
title(’Response of Roll Rate (p) to Pedal Step Input’) 
ylabel('Roll Rate (rad/sec)') 

elseif j== 
title(’Response of Roll Angle (phi) to Pedal Step Input’) 
ylabel(’Roll Angle (rad)’) 

elseif j== 
title(’Response of Yaw Rate (r) to Pedal Step Input’) 
ylabel(“Yav Rate (rad/sec)”.) 

elseif j== 
title(’Response of Yaw Angle (psi) to Pedal Step Input’) 
ylabel('Yaw Angle(rad) ') 

end 

end 
end 


end 
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31. structure_stab_input.m 
% Structure Consruction for JANRAD98 stability_control_input.m 
% Created for JANRAD version 6.0 by LT David A. Heathorn 


5 STAB TNEUTzstructl... 


al. Oa 
MAS, amak: 
Sima "Ima. 


Tam me. 
time s 

bee NEA. 

ECA Eden ccc 
Tel 

"DE DE. 

466 CE rat 
RERE ea иә 

"at", ae 7 
"ohme”7olhun 
“Tbb” 
'delta3',delta3,... 
"Ehetale  ehetaltEe,... 


"hva byder. 
"ve de. 
776 Уту. 


“alploy 4 alploua... 
‘clvertmax’, clvertmax, .. 


'Qvq',qvq,... 

Davi avi ec 

“Aha hides 

"lha' 164 ии. 

ud” yudu 
salploh .Valeloh,... 
den rr 

"ah an 

"qhq” ,qhq,... 


ONL a VI le, 
‘detafdalpfh’,detafdalpfh,... 
“hwa Wwe. 

vad a : 

“Vud” yd. -. 

"alploy alplov,... 
550007” 

"av ,avr,... 

"CEW CCW e a 

“CEM CLW, ia. 
"Vur1 7 Vl... 
'detafdalpfw',detafdalpfw,. 
“260 2709) :: 

Kea OG 

"NG e 

WË TK TE Tas 

STY INE os ze 

5122 AZZ E: 

flxz5 um een 

EN NE силин, 
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'htrid ds hEndo s e 

LEN PEN 7” 
"vtnd"”yytna... 7 

“dian” dian... 
"булут БИР ни 

AET EMS e 
“ittnd ; letna ии 
‘dbimddele’,dbimddele,... 
'dalmddela',dalmddela,... 


'dthetomddelc',dthetomddelc,. 
‘dthetotddelp’,dthetotddelp,. 


"“sideazm”,sidearm,... 
'maxr',maxr); 
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32. structure stab input 1.m 
$ Structure Consruction for JANRAD98 stability control input 1.m 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


SESTAB- INPUT ATSstruct(... 


“15515... 

“hmd brød. ... 
EE e 
EC MRC er 
IMIM eu. 

SAYO COVE, ... 
Cod sed, e 
"Va 776... 


3216167 Palplov,.-.- 
"oivercmax ,clvertmax,... 
'qavgq',avq,... 

“av dU, s 
Sheene ла. 
qao Fh, s. 

ES ee 
“alploh alploh,... 
NN. 

dl es 

aha Ae er 

A dok lane e 
'detafdalpfh',detafdalpfh,... 
GEE. ... 

2166 EO... 

EG EG s 

CDE ber... 
AE. 
RERE es 
dou. 

"cbme “olmt,... 

OE ARDE y 
“delta /delta3,... 
'thetalt',thetalt); 


33. structure_stab_input_2.m 
$ Structure Consruction for JANRAD98 stability control, input 2.m 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


S STABSINPUISSSSCHICE 
"nhud ,Bve,... 
DO s 
ING. ANNE CN 
“alplon#alplow, %% 

Би әлил си. 

aw jaw, e 

REW er GEM ao 

METI ta 
Oe 
‘detafdalpfw’ ,detafdalpfw,.. 
eZ 2091. 

69 :X66 e 

veg MCT ee 

EE EN oll. 

A ae 

EZ LZZ e 

ZP Zo. 
EE e 

Sena иләд: 

“Emo LENG, ит, 

NENG, YENG, a 
idian”,dlan,... 

57:71 ,svirİ.... 

“Tema  Ytmaxn,-..-.- 
“1566520 C re 
'dbimddele',dbimddele,... 
‘daimddela’,daimddela,... 
‘dthetomddelc’,dthetomddelc,... 
‘dthetotddelp’,dthetotddelp,... 
‘sidearm’ ,sidearm,... 
^maxr',maxr); 


ZU 


34. tail warn.m 


function tail. warn() 


00 dP 00 de o? ge ge oe 


% 


This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path. 


GUI screen to indicated version is not configured for fan-in-tail or 


NOTAR 


% 


Created for JANRAD version 6.0 by LT David A. Heathorn 


load tail, warn 


a 


z figure color',[0.8 0.8 0.8], 
'Colormap',mat0, 
'Name','Tail Warning', 
“umberTitle” , off”, 
'PointerShapeCData',matl, ... 
Position”, [252 240 402 201], 
“Tag E1C2'); 
uicontrol('Parent',a, 
nes”, polnts”, «aw 
NEccekcroundcolor^? [0.752941 0.752941 0.752941], 
“Eon:oize”, 18, ... 
1E66051on , (42.75 39.75 212.25 69.75], 
‘String’, ’JANRAD is not currently configured for fan-in-tail or 


il 


NOTAR systems.’, ... 


“Style”, “text”, : 
“lage, StatieTextl"); 
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35. temp. stab.m 
$ Structure Consruction for JANRAD98 stability control input.m 
$ JANRAD 98 VERSION 5.0 


S STAB. INPUT=struce(. 2. 
"Tina. 
ima”, Ama ee 
* lima mimar > 
md ,yınd,... 
"am „LM; > 0 
bte NEJ: ace 
IE EE 
“704647 ли 
Ate en 
PGR cR, 77 
“5075605. 
pac” „GE, OA 
telhımt”,ehme,... 
bt” 1656t,... 
“d6c16282/7delta3,..:- 
"thetalt”,thetalt,... 
Anya vd mr 
“1ud yd; e 
АД ла EF 
“alnlev elken wen 
"clvertmax ,clvertmax,... 
'qvq',qvq,... 
16: .08V75-- 
mham nnd, F 
ER ee 
A) ee 
'alpton^,alploh;-.. 
nn: 
"ah" di s. 
ксри ии 
UA UNG han 
'detafdalpfh',detafdalpfh,... 
“hwd',hwd,... 
“Iwe NE een 2 
C ywd' VWO es. 
“alplew /alplev, -- 
ra 
aW aW: 
“CL.U CV o 
"CİM CIW 
“VuMD Vİ o 
'detafdalpfw',detafdalpfw,... 
“zC 2607 < 
xe ERE an 
IVC MES 21. 
LN MUTO ne 
“TY Tert 
"Тар Талк 
"Ty ee 
"Ty VIVI. M 
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“HER, atnd;... 
EE -- 

Ganda. VEMO as : 
ddian a dlan, ee. 

SUIT] swirl,..: 

Eman. .YEMAXN, 6. 

Stem  Ittnd,... 
'dblmddele',dblmddele,... 
'dalmddela' ,dalmddela,... 


‘dthetomddelc’,dthetomddelc,... 
art totddelp ,dthetotddelp,... 


"cc rm” sıdearm,... 
”maxr” ”,maxr): 


36. time freq resp.m 


function time freq resp() 


de ge ge 00 ge oe ge oe 


go 


This is the machine-generated representation of a MATLAB object 

and its children. Note that handle values may change when these 
objects are re-created. This may cause problems with some callbacks. 
The command syntax may be supported in the future, but is currently 
incomplete and subject to change. 


To re-open this system, just type the name of the m-file at the MATLAB 
prompt. The M-file and its associtated MAT-file must be on your path." 


Created for JANRAD version 6.0 by LT David A. Heathorn 


load time freq resp 


global C u type anal Amat Bmat H TF RESP H STAB OUT T STOP T INC 


type anal-zeros(4,1): 
C=zeros(9,9); 
u=zeros (4,1); 


PETE RESP = figure(*Color’, (0.8 0.8 0.81, 


“Colormap”,mat0, 
'Name','Time and Frequency Response', 
"NumberTrtle',"off"', 
En man 
"Bosicien 1222007704” 

“Tag Fil) 


- uicontrol('Parent',H TF RESP, 
SUGIESY, "POLNEJ. o. 
"Background€eolor”, 10. 752941 Ü. 752211 0775271177 
«Posrttion 163.715 205.025 222 TEENS]. 
'Style','frame' 
“Tag”, Eramel^'); 

uicontrol('Parent',H TF RESP, 
Units’, points" å 
ENE Eo! 1522411107 75 307517 
Position , (324 410:5 225057:241, 
‘Style’, “frame” 
"Tag” Erame2”): 

ulicontrol('Parent',H TF RESP, 
Unites, Points" ang 
2550 Mo 252341 0275254) 0275294117 
"Position [164.502 222 75 154-516 
“Style” ,”frame” 

"Tag” ,“Frame3”), 


uicontrol('Parent',H TF RESP, 
“UNTES”, "DOLNE", 22. 
"Backgreuundcolor'.[0.752941 0.752241T100/) 752241 17 
"FontSize" 18,11. 
“Pos EKO SSN EE 
'String','TIME and/or FREQUENCY RESPONSE OF COUPLED SYSTEM’, 
‘Styles text’; 
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H LAT 


'Ca 


H LONG 


“Ga 


HECO 


‘Ca 


H_PED 


1102 / StaticTextl”), 


= uicontrol(“Parent”,H TF. RESP, 


Eure points”, 


'BackgroundColor',[0.752941 0.752941 


beb lobal- u;'... 


1 €€ (6656) “Value” ”)-zİ,”... 


3151077707 OT. 
'set(H LONG,''Enable'', 
'set(H COL,''Enable'', 
'set(H PED,''Enable'', 
else"... 


4 


D 


2 


'set(H LONG,''Enable'', 


‘set (H_COL,’’Enable’’, 
‘set (H_PED,’’Enable’’, 
rendo qe 


, 


, 


Off NN 
KOEL A 
"ote: Y, 


ROM"), 
ROME) 
KONW) A 


“Position [94.5 309 87 21.75], 


String”, Lateral Cyelic”, 
"Style", “Checkbox”, 
“Tağ” , Checkboxl”), 


— ülcontrol( Parent”,H TF RESP, 


“Unite ” points, 


Zpackoroundeolor',[0.752941 0-752941 


back (global u;",... 


Zrrecebpigcbo, *',Value'')zzl,'... 


HS Or O 


"Set (H LAT, 'Enable””, 'off''), 


'set(H COL,''Enable'', 

'set(H PED,''Enable'', 
'else,',. 

'set(H LAT,''Enable'', 

'set(H COL,''Enable'', 

'set(H PED,''Enable'', 
end 


+ 


, 


, 


, 


, 


'off''), 
Norte”), 


Kom it 


SON. , 
ZU ra , 
, 


"Position C45 018025 87/4 210751. 
SSEr Ingi „Longa EuUdinal Cyelie", 


"Style", checkbox”, 
"Tag , Cheekboxi”): 


- uicontrol('Parent',H TF RESP, 


"UnTUS points, 


'BackgroundColor',[0.752941 0.752941 


llback*,|*globalr"ue">... 


“if get(gcbo, ''Value'')==l,'. 


P= Oes Less 
‘set (H_LAT,’’Enable’’, 


, 


'set(H LONG,''Enable'', 


'Set(H PED,''Enable'', 
Else,” as 
'set(H LAT,''Enable'', 


1 


'set(H LONG,''Enable'', 


‘set(H_PED,’’Enable’’, 
end la 


4 


25057) 


, 


re 


D. 752941], 


po... 


00752941] 


po oo 


fo oe 


E TE 


25550”), 


mte , 
25:6n.577 
“ən "|: , 


:5 en [93.75 247.5 87 21.75]. 


#String , Collective”. 
“Style”, checkbox”, 
“Tag”. Checkboxl’); 


= uicontrol('Parent',H TF RESP, 


"USES pornts*', 
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- 


0. 752921]9 


’Backoroundcolor’, (0.752941 0.75294 1075294 ie 
‘Callbacks 2olobal vu: 
“1f getlgcbo, ''Value'')zzl1,'..-. 
TEO O KO” Tl: 7 
rset (H LAT Enable””, “Or i tor 
'setlH COR “Enable””,” ”ofif””),” .. 
"set HEHƏNG, “Enable n C off) x. 


`~ 


telse,” pen. 
“set (HELCAT, Enable’, “ON nee 
"set (H COL,” “Enable””, “kən” ”).,” „=. 
"set (H LONE/) ” Enable””,””on” WE... 
"end ae 


“Position [9455 214.5 87121. 161, 
String, ‘Pedals’: 
'Style','checkbox', 

"Pag Checkboxl”): 


b = uicontrol('Parent',H TF RESP, 
¿UntES ^DOZDLS^;. ... 
"Backgroundeolor.[0.752941 0.752941 0.752946 
"FontSize”.12, ... 
"Eosiclom 1241 5 174 180 18.75], 
“String” 'Type of Analysis”, 
"Style", text”, S 
EE e 
b= uicontrol('Parent',H TF RESP, 


UNES INES 2: 
^BackgroundCcolor',[07752941 0.752947 0-752941] 
'Callback',['global type anal ;'... 
Pit ge gebo,  ”Value””)-cel,”... 
“Eype anallillel, ” ... 
“elseif get (qebo, — “Value” ” -eÜ,”,.. 
“буресапа1(1)=01”, ә. 
Lendl tea 
“Position 40445 141.175 160 217751) 
'String', 'Time response to unit step”, 
'Style','checkbox', 
“Mag”, (Checkbox1'): 
b = uicontrol('Parent',H TF RESP, 
LUNES, PONG, 1 \ 
‘BackgroundColors k0. 75294160. 752941572943 
“Callback”, 1” global type anal 2"... 
at get(gebo, “Valuc ji 
“eype enal1f2)-1:”-.. 


“el self get (debo. “Value” “NEO AN 
“Ct rpe anal (2)20: 
vend, lawa 


POSITION 179205 112.5 19175 21.451. 
'String','Time response to unit impulse', 
“Style” checkbox’, 
"Tag Checkbox”). 
b 2 uicontrol('Parent',H TF RESP, 
^UDIESO BolnES sa 
‘BackgroundColor 909752941907 75294219890752941]7 
”Callback' global type anal: ee 
'ak Get (gebo Value” JI. = 
“type vanal (3)=17;"... 
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b 


b 


, 


'elseif get (gcbo, ''Value'')==0,",.. 


'type anal(3)-20 
end ly: s 
?f 5 cn 94.5 81.75 181.5 21.75], 
“String’ ,’Bode plots’ 
Style ecneckbox”/...:. 


"pag c ucheckb5oxl'); 
urconterol(”Parent”,E TE RESP, 


'Units','points' n 
onder zı 752941 0.752941 
'Callback',['global EL anal лл 
‘if get(gcbo, 25:77 
"type anal(4)=1 : 
'elseif get (gcbo, ie 559) 
“type. anal(4)-0,' 
tendi ve 
7256230616 7 05 515 181.5 21.75), 
‘String’, ’Eigen values’ 
‘Style’, checkbox’ 
"Tag , Checkbox’); 


uicontrol('Parent',H TF RESP, 


150”, PODES", 22, 

' BackgroundColor’, [0.752941 0.752941 
"Honesize 1, =i 

’ Position’ 194. 5 340. 55180 16751, 
"String 7 input Channel”, 

"Style text” , : 
'Tag','StaticText2'); 


uicontrol('Parent',H TF RESP, 


"Units 7 EOİRES”,.... 
*Backgroundcolor'",[0.752941 0.752941 
"Homesize” 14, ... 

“Pos ETO. 339 755340.5 180 18.75], 
'String','Response' 

'Style' 7-5 


‘Tag’ 555 Tə 


uicontrol('Parent',H TF RESP, 


“UnUesS . EOHDES”..... 
"Backgroundeeclor” T0775294170.752941 
“Calıbacıb “TT global C :”... 
'1f getigcbo, ''Value'')zz1,"' 

"et, aL 


0, A32941], 


0-752941], 


0.752941], 


04752941], 


'elseif get (gcbo, ''Value'')zz0,',... 


"ET 
"end. 
posicions 238.25 209. 75.99 21.75], 
ESET TAG vu 7 
'Style','checkbox' 


‘Tag = Gaeckboxl’ ); 
uicontrol('Parent' ,H_TF_RESP, 


A 5. o... 

‘BackgroundColor’ ,[{[0.752941 0.752941 

"Galibeck ob Glebal C :'... 

"if get(gcbo, ‘’Value’’)==1,' 
ESSES 
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9071529041]; 


'elseif get (gcbo, ''Value'')zz0,',. 
VC Ce uus 

"end, "15 

"Position 11339 280.508 1.75), 

Sering. 550 

‘Style’, ‘checkbox’, 

‘Tag’; Checkbox)” ) ; 

b - uicontrol('Parent',H TF RESP, 

WVMnits' "prs, oon 
"Backcrouncdcotor' [0.752941 0.752941 0.752941]7 
"Calilback” [glebal ee 
"JE get (Gobo “Value “)eel,"... 
“610217” s 
"elseif get (acho, “’ Value’ ’)==0,",... 
7612200 
o NE 
“Position”. 13989824987 21.791, 
«Strings vile 
"Style" "checkbox", 
"Tag , Checkboxl”)” 
b — uicontrol(“Parent”,H.TF. RESP, 
‘Unites’, “point sai >. 
(BackGrounccolor’ ;, (0275294!) (0.752941 0.752941), 
“Callback; [ Global C ;' 
"if get(odcbo, 2 Value””)c-l,”..-. 
"C(4, 4) =e 25 | 
'elseif get (gcbo, ''Value'')zz0,',... 
ENN... 
"end; iv O 
“Pos raon, [339429681548] 21.15], 
"String, Er 
'Style','checkbox', 
“Tag”. Checkbox"); 
b 2 uicontrol('Parent',H TF RESP, 
unics u points., 74: 
"BackgroundColor. (0.752941 0.752941 0875294115 
“Caliback"”.,  [ “global CQ ;'. 
11f790c6€ gcbo 2 Valle  )zzl, a. 
“GNG. TY El... 

"“elseuk get (gcbo, “"Value’’)==0,",... 
AS EN 

“end. ə. 

“Position 1:39 1860.75 67 217-751, 

"String "ROLL". : 

'Style','checkbox', 

tag =) Checkbox) a: 

b - uicontrol('Parent',H TF RESP, 

SURE pommes 

*Backgroundcolor", (0.752941 0.752941 0.75294 11; 

‘Callback’ jl’ global. Cc 3”... 

"if get(gcbo, ''Value'')zsl,'... 
«(EN 

felseif get (Gobo, “'Value’*)==0,°>... 
TEO O =D a 

end? E z: 

‘Position’ silos? 15:7757077017 751, 

‘String’, хам", 
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“Style” ,“Checkbox' , 
5109) “Cheekboxl”): 
Ы = uicontrol('Parent',H TF RESP, 
Ungas”, “Points” : 
:555:: Rer 752941 059352941 0.752941], 
ease sek global € ;'... 
meer **"Value”'')==1, 
"С(3,31=1 : 
16-75 gel (debo, 0 Value” ”)“cÜ,”,... 
*”С(3,3)=0 
end. 17... 
"POSITION 59 124:5 87 21.75], 
SETTING Pitch Rate”, 
“Style”, “Checkbox” , 
'Tag','Checkbox1'); 
b = uxeontrol(^Parent'.H TF RESP, 
“UNiE?, Dolnes”, so 
"Bsckoroundeolor / 1027752941 0.752941 0.752941], 
esel Global Å :"... 
"if get(gcbo, ''Value'')zz1, 
"C6 6) 1 : 
‘elseif get (gcbo, ‘’Value’’)==0,’ 
*С(6,6)=0 
end 15.0 
“Position m[333 93.75 87 21.715], 
“String”, Roll Rate' 
'Style','checkbox', 
“Tao”, Cheekboxl”), 
Ы = uicontrol('Parent',H TF RESP, 
CUATES, POTES”, ... 
2ZBaekgroundecolor',[0:752941 0.752941 0.752941], 
исә ИЛӘ вс global C ;'... 
"if get(gcbo, ''Value'')zz1, 
"C(8,8)-1 
‘elseif get (gcbo, ''Value'')zz0,',... 
"C(8,8)=0 
"end 1 
Posten 9 062.25 87 21.75], 
'String','Yaw Rate' 
(Seule, checkbox” , 
"Tag Eet 


o 
H 


uicontrol('Parent',H TF RESP, 

‘Untes "Points" 
LEE EE (1 T 1], 
callas apa lobal T INC ;'... 

seer Gobo “SEring””))T INCeser2num(T.INC)?”), 

"posuuqou | 1443.25 200.25 63 15], 
' String ÅT ING. 

Style, edit’, ==. 

medgir FEdltTextl"): 
b s uicontrol('Parent',H TF-RESP, 

“Ungas, points" : 
"Bacı nad er géi a 11, 
"Call Global T-STOP 5%... 

712 roB=get|gebo,”'String'');1 STOP=str2num(T_STÓP);”], 
"PosreTer 144 7 25 252 63 15], 


bə 
NI 
© 


‘Strang ис тур, 

"Style edit, 
"Mad". EdatTextl'): 

b z uicontrol('Parent',H TF RESP, 

‘Units’, points” a 
Baneao 25 752941 OPS ZAT 0.75299], 
Posen EES, 
"String Stop Time "(see)" 
‘Stylet c text. Gå 
"Tag", StaCicText3”)” 


b - uicontrol('Parent',H TF. RESP, 
"Units ports" E 
5:7. 6. 752941 0.75294] 0.752941]; 
Positrons [43805 215 25069 17-35] 
'String','Increment (sec)', 
"style", ə. 
' Tag’ тсә ju 

= NE rr H_TF_RESP, 


"Tes points, .. 
EE ‘global BE "Bmnat S UT STOP TEENS 
type anal;time freq resp fcn cont', 
‘FontSize m lA, x 
izesitlon (:11::2:75.25 105:75 271. 
“erin CONTINUES, 
meg”, Eushbuttonl”?” 
b = uicontrol('Parent',H TF RESP, 
ante "polnts”', > 
EE 55: “m. Bmat C u T STOP T INC 
type anal;time freq resp fcn back', 
"FontsSze' I4. . 
Pos TE TO [IUS 25 105.75 27), 
“Bering”, € BACK”, 
hag  Pushbbuttoni”): 


assignin('base','H LONG',H LONG); 
assignin('base','H LAT',H LAT); 
assignan (Basen H COL" ,H00L): 
assignin('base','H PED',H PED); 
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37. time freq resp fcn.m 
function time, freq resp fcn(Action) 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


global Amat Bmat u C type anal time vec H STBY SCRN H TF RESP H STAB OUT 
T INC T STOP 


if isempty (nargin) 
return 
end 


switch Action 
case 'cont' 


stby scrn 
pause(1) 


if type anal(1)-- 
step plotter 
end 


if type апа1(2)==1 
imp plotter 
end 


if type anal(3)== 
bode plotter 
end 


if type. anal(4)== 
eigen plotter 
end 
close(H STBY SCRN) 
case 'back' 


stab out 1 
close(H TF RESP) 


end 


38. Trim.m 


3 Trim.m 


% Trim routine for collective/cyclic. 
% JANRAD 98 VERSION 5.0 
% Modified for JAJRAD version 6.0 by LT David A. Heathorn 


global RADSPC VAL NL TWIST VAL NEW AUX VAL FIX TPP VAL NEW TPP 
lamdaT trim 


if -exist('STAB ON') 


if get(H AS, 'Value')== 
IT PARAM-'AIRSPEED'; 
TTSUNTITz RISO 

elseif get(H_AL,'Value')==1 
IT PARAM-'ALTITUDE'; 
IT UNIT-'FT'; 

elseif get(H_GW, 'Value')== 
IT_PARAM=’GROSS WEIGHT’ ; 
BUNDE Sie: 

elseif get(H_BT, ’Value’)== 
IT_PARAM=’BLADE TWIST’ ; 
TT UNITz*DEG'; 

elseif get(H BTR,'Value')--1 
IT_PARAM=’BLADE TAPER RATIO’; 
IT UNITS. 7; 

elseif get(H_SOT, 'Value')==1 
IT PARAM-'START OF TAPER'; 
EE UNIT= ET: 

elseif get (H_WSA, ’Value’ )==1 
IT_PARAM=’WING SPAN AREA’; 
HTLUNLET-” ET”: 

elseif get(H RBR,'Value')-- 
IT PARAM-'ROTOR BLADE RADIUS'; 
TRAUN TES SE, 

elseif get (H_RBS, 'Value' ) == 
IT_PARAM=’ROTOR BLADE SPEED’; 
IT_UNIT='RAD/SEC'; 

end 

end 

% Following was added to adjust flight conditions for UH-60A runs 

EE E ep 
E 
PA=2500; 
temp=68; 
СИ=17377: 
CEhorrz-0. 

elseif Vinf/1.68781 <= 90 
Ant-325 
ВА=2500: 
temp-68; 
GW=17377; 
CEioriz== 1; 

elseif Vinf/1.68781 <= 140 
AEN=30; 


oe JP ge de oe ge ge oe ge Æ Æ oe ge 
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PAz2500: 
temp=68 ; 
GW=17300; 
sEhoriz==0.3; 
else 
Afh=28; 
PA=2500; 
temp=68; 
GW=17000; 
cnhorrz-—-0-5; 
end 


Oe de ge 00 ge oe de oe ge oe oe 


set(H STATUS,'String','EXECUTING ROTOR TRIM ROUTINE') 
set(H STATUS1,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 


SECONDS”)) 
if -exist(“STAB ON”) 
if get(H NI,'Value')--1 
set(H STATUS3,'String','") 
else 
set(H STATUS3,'String',['ITERATION PARAMETER: ' IT PARAM ' s ' 
num2str(itervar) num2str(IT UNIT)]) 
end 
end 
pause(3) 
% *** calculation of required parameters *** 


rhos-0095 0 00DOST*PA-(—-.002*temp*1.118)); 


5 7 enrseegquess at rotor profile drag ( H force) *** 
it Vinee 169) 
Drotor=0; 
else 
Droctor-Vintt(irho/-002377)54 
end 
daz0:5 zuo Vınf”2: 
Adisk-pi*R^2; 
Vtip=omega*R; 
temp_rank=temp+459.67; 
spd, snd-49.1“sqrt (temp rank), 
% Section added to establish maximum tip speed 


$if (Vtip+Vinf)/spd_snd>0.87 
% spd_max=0.87*spd_snd 
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% Vtip=spd_max-Vinf 
$ omega=Vtip/R 
$end 


$ Section added to set wing lift at a certain value and determine 
$ the required wing CL %% This is for compound helos%% 
ZI Vinfs2160*1 759281 

% perelift= 0.7; 

% Lwing=GW*perclift 

% CLwing= Lwing/ (q*Swing) 

sir VINE>=11IO 17663 

€ perclifte 255:.00293”(Vinf-(110“1:68781)) 

% Lwing=GW*perclift 

% CLwing= Lwing/ (q*Swing) 

else 

$ Lwing=q*CLwing*Swing; 


$end 
Lwing=q*CLwing* Swing; 


Dfuse=q*Afh; 

CDwing-CDowing-* (CLwing^2/(ewing*pi* (bwing^2/Swing))); 
SelHoriz-CDohoriz-(CLhoriz”2/(.8"61”“(bhoriz”2/Shoriz)?)” 
AD rtseDovert»(CLvart^2/(.8*pi*(Bvert^2/Sverti] s 
Dwing=q*CDwing* Swing; 

Bhoriz=q*CDhoriz*Shoriz: 


Dvert=q*CDvert*Svert; 
Dftotal=(Dfuse+Dwing+Dhoriz+Dvert); 


% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 
me Vint/1.68781<=70 
AUXEFF=.650; 
elseif Vinf/1.68781<=100 
AUXEFF=.65+.0025*((Vinf/1.68781)-70); 
elseif Vint/1.68781<=160 
AUXEFF=.725+.0025* ((Vinf/1.68781)-100); 
elseif Vinf/1.68781<=210 
AUXEFF=.85+.00007*((Vinf/1.68781)-160); 
else 
AUXEFF=.847; 
end 


% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 

Dftotal=(Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case 1 

if PA--8000 

Taux=16*Vinf/1.68781; % linear increase in aux thrust up to 210 

knots 
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S PERF INPUT.Taux-Taux; 
ENUSERCTNPUT.TauxsTaux; 
elseif PA==5000 
Taux-17.024*Vinf/1.68781; % linear increase in aux thrust up to 
210 knots 
S. PERF, INPUT.Taux-Taux; 
S USER INPUT.Taux-Taux; 
elseif PA--0 
TauxeDftotal:;: 
S PERF INPUT.Taux-Taux; 
S USER INPUT.Taux-Taux; 
end 
end 
Bhorszzca*Obhoriz*Shorziz; 


Lvert=q*CLvert*Svert; 


Lftotal=Lwing+Lhoriz; 
lf FIX TPP YALE 


alphaT=NEW_TPP; $set tip path angle 
else 

alphaT=atan2 ((Dftotal+Drotor), (GW-Lftotal)); 
end 


mu=Vinf*cos(alphaT)/Vtip; 


% ax zchrusE calculation *** 


VE Vanf € 16.9, 
T=(1+(0.4*Afv/Adisk))*GW; 
else 


T-(GW-Lftotal)/cos(alphaT): 
end 


ET-T/ (Adisk*rho*Vtip"2): 


$Values to check output 


% *** setup blade radius elements, azimuth elements, 
% induced velocity distributions, and determination 
% of coning angle and tip loss parameter *** 


B=1-(sqrt(2*CT) /b); 
Reff=B*R; 


Rbar-Reff-e; 


if RADSPC VAL-- 
NEW rl-z[NEW r, Reff/R]; 
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n-length(NEW r1); 
ar=di ft (Newer wie. 
r= (NEW 11 (1 :n=1) R)dr/27 
else 
dr=(Reff-grip)/nbe; 
r=grip:dr:Reff-=dr;,r=r+dr/2; 
end 
TE NL TWIST VALS 
NL. TWIST=NL TWIST/57.3: 
n=length(NL TWIST): 
if RADSPC VAL== 
y=( (Reff/R)-NEW r(n))*( (NL TWIST(n)-NL TWIST(n-1))/(NEW r(n)- 
NEW r(n-1))); 
else 
y=((Reff/R)-r(n))*((NL_TWIST(n)-NL_TWIST(n-1))/(r(n)- r(n-1))); 
end 
NL_TWIST1=[NL_TWIST (NL_TWIST(n)+y)]; 
m=length(NL_TWIST1); 
AdTW=diff(NL_TWIST1); 
twist=(NL TWIST1(1:m-1))+dTW/2; 
betat=twist; Б 
else 
betat=twist*(0.7-(r/R)); 


end 
EI0-0. 7. €$05*5** firstoguess at FT] *** 


RbarT=rT1*Rbar; 
mblade=wblade/32.17; 


betao-asin((T/b*RbarT-(.5*(R-e)-«e)*wblade)/((.5*(R- 
e)+e) *2*omega*2*mblade) ); 


psi=0:360/naz:360-360/naz; ,psi=psi'/57.3; 


%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
$$  rchord-root chord 

$$  cblade-vector of blade element chord lengths 

45 tr=taper ratio (tip/root) 


$$  trst-taper ratio start position (r/R) 


cblade=rchord*ones(size(r)); 5 gives all elements same chord length 
initially 
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1:72: — $ prevents division by zero later in code 
El: $ in case 0 is enter for taper ratio instead 


end $ of 1 for no taper 


lf CYSE=S= 


slope=(rchord-rchord*tr)/(Reff-grip); % Modifies each element 


cblade=cblade-slope* (r-grip); % chord length wrt input 
tchord-cblade(nbe), % taper ratio which has been 
mchord=sum(cblade) /nbe; % been converted into a slope 


% top portion takes into 


else $ account the possibility that 
slope-(rchord-rchord*tr)/(R*(1-trst)); $ a 0 start position is 
really at 
z-tix(nbe"erst): $ the start of the aero 
portion 
SE z<=1 % prevents beginning index fm being zero 
z=1; 
end 


cblade(z:nbe)=cblade(z:nbe)-(r(z:nbe)-r(z))*slope; 
tchord=cblade(nbe) ; 
mchord=sum(cblade) /nbe; 


end 


% *** induced velocity determination *** 


Peeve < 16.9, 


A=4* pi; 


Bv=(b/2) *omega*a.*cblade; 
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Tv=0; 
delT-T-Tv, 
while abs(delT) 501702 % Prouty Eqns for Hover 
thetav=betat+thetao; 
C=(-b/2) .*cblade*omega”2.*r*a.*thetav; 
vi=(-Bv+sgrt(EwW62-(4*A*C)))/(2*A); 
dTvs(b/2)*rho*((omega*r).^2)*a.*(thetav- 
(Vi./ (emega*r))).*eblade.*dr; 
Tv=sum(dTv) ; 
delT=T-Tv; 
if deli. 0: 
thetao-thetao-0.5*thetao*abs(delT/T); 
else 
thetao=thetao+0.5*thetao*abs(delT/T); 
end 


end 
else $ Wheatley Eqn for Fwd flt 


lamdaT=0; 

lamda-1; 

while abs(lamdaT-lamda)»1e-4 
lamda-lamdaT, 
lamdaT=mu*sin(alphaT) +0.5*CT/sqrt (lamdaT*2+mu%2) ; 


end 


vi=lamdaT*Vtip-Vinf*sin(alphaT); 
vi=vi*ones(size(r)); 


end 


% **x* first guess at theta *** 
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thaerale=0 085" (10. 0006e-3*Vint”*2+0.244e-3*Vinf)/0.105); 
thetals=-0.087*((0.0006e-3*Vinf*2+0.244e-3*Vinf)/0.105); 


theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 


% Bu rccorSErimming routine *** 


set(H STATUS,'String','TRIMMING COLLECTIVE') 

set (H_STATUS1, 'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS’ J ) i 

pause (3) 

set (H_STATUS2, 'String','') 


k=1; 


erroro0s0p*.02)-1; 


while abs(error0) > T*.02 
set(H STATUS2,'String',['COLLECTIVE TRIM ROUTINE IS ON ITERATION # 
me nume2str tik) )) 
Set HİSTATUSİ, String”,1l”RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS”)) 
Tpsi=zeros (size(psi) ); 
Npsi=zeros(size(psi)); 
threalć 
if KST, $ Eccles change: These three lines were added. 
errorl; 
end 
error0=T-(mean(Tpsi)*b); 
1f error0 « -T*.02, 
thetao-thetao-0.35*thetao*abs(1.5*error0/T)*(1-mu); 
elseif error0 > T*.02, 


thetao=thetao+0.35*thetao*abs (1.5*error0/T) * (1-mu); 


end 


theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
if 4m 
if abs(error0) > abs(errorl), 
cle 


trim_warning 

set (HICOM Enable T oft"); 

set (H_RES, 'Enable','of£'); 

set(H RUPT,'Enable','o£f'); 

set(H BK,'Enable','on*'); 

error "manor Un 
end 


end 
errorl-error0; 
k=k+1; 

end 


Set (Ho STATUS, String’ ,“ TRIMMING CYCLIC”) 
Sec(H-STATUSI,'String',['RUN ELAPSED TIME IS ” nümzstrifix?to6170 rr 
SECONDS’ ]) 

Set (Ho STATUSZ, SEering?) 

pause(3) 

BOSE LOE: 

k=1; 

errorO0-(((T/b)*rTl*(R-grÀ55))9m04)-1; 


whrle error) > (C(T/b)*rTI*(R-crip))*-04 


set(H STATUS2,'String',['CYCLIC TRIM ROUTINE IS ON ITERATION # 
"„ num2żstr(k)]) 

set (H_STATUS1, ‘String’, [’RUN ELAPSED TIME IS * num2str(fix(toc)) ' 
SECONDS” T) 


time=etime(clock,t0); 
if time $ 45, 


Set(HSSTPATUS,"String'^,'STILL TREMMING ...”) 
setiH-STATUSİ, SEring”,1”RUN ELAPSED TIME IS ^ num2str(fix(toc)) ” 
SECONDS”1) 
set (H_STATUS2,’ String”, [’'CYCLIC TRIM ROUTINE IS ON ITERATION 
R”, numżstr(k)|]) 
pause (2) 
tOsclock; 


end 
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Mpsi(:,k)=zeros(size(psi)); 
tmcalc 
theta-[theta theta(:,k)]; 


Mpsiz[Mpsi Mpsi(:,k)]: 


xxx calculation of initial dthetadM *** 


mgka. 
sheta(:,k+t)=tkheta(:,k)+0.25/574.3; 
Mpsi(:,k+1l)=zeros(size(psi)); 
k=k+1; 
tmcalc 
k=k-1; 
dthetadM=(theta(:,k+1)-theta(:,k))./(Mpsi(:,k+1)-Mpsi(:,k)); 


end 


7 weal lculaticn of M first harmonic parameters *** 


Mic=2*sum(Mpsi(:,k).*cos (psi) )/naz; 


Mis=2*sum(Mps1(;,k)."siun(psi))/naz; 


*** removal of first harmonic terms from Mpsi *** 


Mpsi (:,k+1)=Mpsi(:,k)-Mlc.*cos(psi)-Mls.*sin(ipsi); 
delM=Mpsi(:,k+1)-Mpsi(:,k); 


error0=max (delM) -min(delM); 


TESK 1: 


if error) > errorl, 


ede 
trim warning 
set/H GO, 'Enable” ,'Gff'): 
Set (H RES,'Enable','off'); 
Set(H RUPT,'Enable','off'); 
Set (H BK,'Enable','on'); 
error('*** END OF PROGRAM ***')j 
end 

end 

errorli=error0; 

*** calculation of new theta *** 


delM=0.5*(1-mu) “delM, 


theta (:,k+1)=theta(:,k)+(dthetadM.*delM); 


Mrteerrorüre- ( (T/D)FTTIF(R="GE"B) 9-04, 
thetalc=2*sum(theta(:,k).*cos(psi))/naz; 
thetals-2*sum(theta(:,k).*sin(psi))/naz; 

else 
thetalc=2*sum(theta(:,k+1).*cos(psi))/naz; 
thetals=2*sum(theta(:,k+1).*sin(psi))/naz; 


end 


theta (:,k+1)=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 


xxx calculation of new dthetadM *** 


theta=[theta theta(:,k+1)]; 
Mpsi=[Mpsi Mpsi(:,k+1)]; 
checa(»,krZ)=Ebheta(>,6)+0.25/57,3, 
Mpsi(:,k+2)=zeros(size(Mpsi(:,k+1))); 
k=k+2; 


tmcalc 
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k=k-2; 


dchetadM=(theta(:,k+2)-theta(:,k))./(Mpsi(:,k+2)-Mpsi(:,k)); 
k=k+1; 


end 
set (H_STATUS, ‘String’, ‘ADJUSTING COLLECTIVE’ ) 
SeE(ASSTATUSI String ,i{°RUN ELAPSED TIME IS * num2str(fix(toc)) * 
SECONDS” |) 
set (HİSTAHUS2,:String”,””) 
pause(3) 
theta-theta(:,k): 
5 


error0-c:.T” 01):1: 


while abslerror0) 5 T”.01 
Tpsi=zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 
error0-T-(mean(Tpsi)”b), 
16 erreor0 < =T*.01, 
thetao=thetao-0.25*thetao*abs(1.25*error0/T)*(1-mu); 
else r"errer0 > T*.01, 
thetao=thetao+0.25*thetao*abs(1.25*error0/T) * (1-mu) ; 
end 
theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
JE 1e 
if abs(error0) > abs(errorl), 
ELE 
trim_warning 
set(H GO,'Enable',*'off'); 
set(H RES,'Enable','off'); 
set(H RUPT,'Enable','off'); 
set(H BK,'Enable','on'); 
error(”*** END OF PROGRAM ***") 


end 


end 


errorl=error0; . 
kaski; 


end 


% *** calculating drag moments *% 
set (H STATUS2,'String','CALCULATING DRAG MOMENT') 
set (H_STATUS1, ‘String’, {[’RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS’ ] ) 
pause (2) 
DMpsi=zeros (size(psi) ); 


dmcalc 
% e aleculatina rotor Force a32 


set (H STATUS2, 'String', 'CALCULATING ROTOR DRAG') 
set(H STATUS1,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS’ ] ) 
pause (2) 
MR VimEve 16.9; 
Hrotor=0; 


qızır dork, 
dN-[dN ddN]; 


dD-[dD ddD]; 
else 
aT=(dr"adaT] ; 
dN-[dN daN]; 
dD-[dD ddD]; 
for i=l:length(r)+1, 
He (1) =2*sum(ar (e Eos (psi naa. 
His (1) =2*sum(dD(:,i).*sin(psi))/naz; 
end 


Hrotor=(((b*cos(alphaT)/2)*(sum(Hls) — 
sin(betao)*sum(Hic)))-«Drotor)/2; 


end 


% *** Featculating new rT *** 
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rT2-(((mean(Mpsi(:,length(Mpsi(1,:))-1))/mean(Tpsi))/R)-rT1)/2, 


% ? “€ ci rotor drag and rT, retrim rotókwif regqiliired *** 


while abs(Drotor-Hrotor) » 0.2*Hrotor | abs(rT1-rT2) > 0.015*rT1 


If abs (Drotor-Hrotor) > 0.2*Hrotor, 


set (H STATUS, ‘String’, ‘ADJUSTING ROTOR DRAG’) 
Set (EH STATUS1, String", | "RUN ELAPSED TIMEWTS ' num2str(fix(toc)) 4 
SECONDS']) 
Set (H STATUS2,'String',['CURRENT ROTOR DRAG s ' num2str(Drotor) ' 
LB 
pause (3) 
end 


Drotor=Hrotor; 
It abs /(zTI-rT2) 5 0.0154rT1, 


set (H_STATUS, ‘String’, ‘ADJUSTING MEAN THRUST LOCATION') 
sek (H STATUS], String’, [’RUN ELAPSED TIME IS * num2str(fix(toc)) * 
SECONDS 10 
Set (hwo TUSZ, 'String' ,[ NEW MEAN THRUST LOCATION IS * mum2str(rT2) 
TEAR 
pause (2) 
end 
set (H_STATUS, ‘String’, ‘RETRIMMING ROTOR’ ) 
set (HISTATUS1, "String", [ "RUN ELAPSED TIME IS * num2str(fix(toc)) ' 
SECONDS’ ] ) 
pause (3) 
SEENIESRERUSZ,"String",””) 
ATAR 1:nbe): 
dN-dN(:,1:nbe); 


dDedD(:,1:nbe), 


% *** recalculating parameters *** 


I8 EX TPP VAL== 

alphaT-NEW TPP, $set tip path angle 
else 

alphaT=atan2 ((Dftotal+Drotor),(GW-Lftotal)); 
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end 


%alphaT80=0; 

$if S USER INPUT.Vinf«80 

% alphaT=atan2 ( (Dftotal+Drotor), (GW-Lftotal)); 
%elseif S_USER_INPUT.Vinf==80 

% alphaT=atan2 ((Dftotal+Drotor), (GW-Lftotal)); 
% alphaT80=alphaT; 

%elseif S_USER_INPUT.Vinf>=140 

% alphaT=0; 

%else 

% alphaT=(1-(((Vinf-135.02479)/100)*.98747))*alphaT80; 
$end 

mu=Vinf*cos (alphaT) /Vtip; 


TE VINE 16.9% % Wheatley Eqn for Fwd flt 
T-(GW-Lftotal)/cos(alphaT), 
CT-TAURGOISSk*rho5VESD552)7 
lamdaT=0; 
lamda=1; 
while abs (lamdaT-lamda) >1e-4 

lamda-lamdaT, 


lamdaT=mu*sin(alphaT) +0.5*CT/sqrt (lamdaT*2+mu%2) ; 
lamdaT trim-lamdaT; 


end 
vi-lamdaT*Vtip-Vinf*sin(alphaT); 


vi=vi*ones(size(r)); 
end 


E-I-(sart(2 CT db): 
Betta: 


Rbar-Reff-e; 


if RADSPC VAL== 
NEW rl1-z[NEW r, Reff/R]; 
n-length(NEW r1); 
dr=diff (NEW_r1)*R; 
r=(NEW_r1(1:n-1)*R)+dr/2; 
else 
dr=(Reff-grip) /nbe; 
r=grip:dr:Reff-dr;,r=r+dr/2; 
end 
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RbarT=rT2*Rbar; 


betao=asin((T/b*RbarT-(.5* (R-e)+e) *wblade) / ((.5* (R- 
e) +e) *2*omega*2*mblade) ) ; 


% s" rimming collective *** 


EO=clock; 
KSI 


errord=(T*.02)+1l; 


while abs(error0) > T*.02 
Set(H STATUS2,'String',['ROTOR TRIM ROUTINE IS ON ITERATION $ 
” „NUM2SEBŃ(IE) |) 


set(H STATUS1,'String',['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS' ]) 
Tpsi=zeros(size(psi)); 
Npsi=zeros(size(psi)); 
thrcalc 
error0=T- (mean(Tpsi)*b); 
TR errors 02, 
thetao-thetao-0.35*thetao*abs(1.5*error0/T)*(1-mu); 
elseif еггог0 = Т*.02, 
thetao=thetao+0.35*thetao*abs(1.5*error0/T)*(1-mu); 
end 
theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
SE * 1, 
jt abslerror0) > abslerrorl), 
cre 
trim_warning 
set(H GO,'Enable','off'); 
set(H RES,'Enable','off'); 
set(H RUPT,'Enable','off'); 


set(H BK,'Enable','on'); 
error 4 4 END OF PROGRAM ””””) 


end 
end 


errorl=error0; 


k=k+1; 
end 
% **= trtimming eyelac 2 
k=l; 
errørb=(((T/ pb *rT2*(R-Grip))* 04) +1, 


while error0 o ((T/b)*rT2*[B-Grip)) 04 
set(H STATUS2, "String',['CYCLIC TRIM ROUTINE IS ON ITERATION # 
s nom2zstr(k) |) 
set (H_STATUS1, ’String’, [’RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS ']) 
time=etime (clock,t0); 
if time > 15, 
set (H_STATUS, 'String’,’STILL TRIMMING ...’) 
set (H STATUSÅ1, ‘String’, [’RUN ELAPSED TIME IS ' num2sEr(fis«0toc)) 
' SECONDS']) 
set(H STATUS2,'String',['CYCLIC TRIM ROUTINE IS ON ITERATION # 
',num2str(k)]) 


pause(3) 
tOzclock; 


end 


Mpsi(:,k)=zeros(size(psi)); 
tmcalc 
theta=[theta theta(:,k)]; 


Mpsi=[Mpsi Mpsi(:,k)]; 


% *** calculation of initial dthetadM *** 


TRUM teo 
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theta(:,k+1)=theta(:,k)+0.25/57.3; 
Mpsi(:,k+1)=zeros(size(psi)); 

k=k+1; 

Emgealc 

kek-1, 

dthetadM= (theta (:,k+1)-theta(:,k))./(Mpsi(:,k+1)-Mpsi(:,k)); 


end 


*** calculation of M first harmonic parameters *** 


Mic=2*sum(Mpsi(:,k).*ces(psi))/naz; 


Mls=2*sum(Mpsi(:,k).*sin(psi))/naz; 


*** removal of first harmonic terms from Mpsi *** 


Mpsi(:,k+l)=Mpsi(:,k)=Mlc.*cos(psi)-Mls.*sin(psi); 
delM=Mpsi(:,k+1)-Mpsi(:,k); 


error0=max(delM) -min(delM) ; 


TEE Sole 
if error) » errorl, 


eilig 

trim_warning 

set(H_GO, 'Enable','off'); 

set(H_RES, 'Enable','off'); 

set (H_RUPT, *Enable','off'); 

set (H BK,'Enable','on'); 

error('*** END OF PROGRAM ***") 
end 


end 


errorl=error0; 


*** calculation of new theta *** 


delM=0.5*(1-mu) *delM; 

theta (:,k+1)=theta(:,k)+(dthetadM. “delM), 

if error0 <= ((T/D) EE (R-yrIp)) Od. 
thetalc=2*sum(theta(:,k).*cos(psi))/naz; 
thetals=2*sum(theta(:,k).*sin(psi))/naz; 

else 
thetalc=2*sum(theta(:,k+1).*cos(psi))/naz; 
thetals=2*sum(theta(:,k+1).*sin(psi))/naz; 

end 


theta (:,k+1)=thetao+thetalc.*cos (psi)+thetals.*sin(psi); 


*** calculation of new dthetadM *** 


theta=[theta theta(:,k+1)]; 

Mpsi=[Mpsi Mpsi(:,k+1)]; 

theta(:, k+2)=theta(:,k)+0.25/57.3; 
Mpsi(:,k+2)=zeros(size(Mpsi(:,k+1))); 

k=k+2; 

tmcalc 

k=k-2; 

dthetadM- (theta(:,k+2)-theta(:,k))./(Mpsi(:,k+2)-Mpsi(:,k)); 


k=k+1; 
end 


? Pek ımming collective ”” 


theta=theta(:,k); 


=; 
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Ərror0-(T”.01)“€1? 


while abs(error0) > T*.01 


SEGNNESTATNSZ "String", | COLLECTIVE TREM ROUTINE IS ON ITERATION + 
”.Tüm2seE.0)1) 


Set (EECTATUSI, 'String', [/ RUN ELAPSED TIME IS ' num2str (fix(toc)) * 
SECONDS' ]) 


Tpsi-zeros(size(psi)); 
Npsi-zeros(size(psi)); 
Enreale 
error0=T- (mean(Tpsi)*b); 
if errorÜ € -T” 01, 
thetao=thetao-0.25*thetao*abs(1.25*error0/T) * (1-mu); 
olserftocorros0 — T* 01 
thetao=thetao+0.25*thetao*abs(1.25*errorO0/T)*(1-mu); 
end 
theta=thetao+thetalc.*cos(psi)+thetals.*sin(psi); 
TE kl. 
IE abslerror0) » abs(errorl), 
clc 
trim warning 
set(H GO,'Enable','off'); 
set(H RES,'Enable','off'); 
Set (H RUPT,'Enable','off'); 
set(H BK,'Enable','on'); 
error('*** END OF PROGRAM ***') 
end 


end 


errorl=error0; 


k=k+1; 
end 
% 7 “recaiculeting rotor H force *** 


LE Nan 16.71, 
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Hrotor=0; 


STATE 
dN-[dN ddN]; 


AD-[AD AM]: 
else 


drs[daT domi 
dN-[dN ddN]; 


dD-[dD ddD]; 
for x0 lengbEh(r)-*1; 
Bile(i)=ż2*sum(dT(:,1).*cos(psi))/naz; 
HaisS( JĘZ Eum(GD(:,1).*sin(psi))/naz; 
end 


Hrotor=(((b*cos(alphaT)/2)*(sum(Hls)- 
sin(betao) *sum(Hlc)) )+Drotor)/2; 


end 
% *** recalculating rT *** 
run 


rT2-(((mean(Mpsi(:,length(Mpsi(1,:))-1))/mean(Tpsi))/R) #rT1)/2: 


end 


$ *** recalculating drag moments *** 


dii=aT(:, 1 snbe) ; 
aN=dN(:,1:nbe) ; 
dD=dD(:,1:nbe); 
DMpsi=zeros(size(psi)); 


dmcalc 
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dT-[dT ddT]; 
dN-[dN ddN]; 


dD-[dD ddD]; 
seG(NESTATUS, String', ROTOR TRIMMED’) 


set(H STATUSi,'String'/,['RUN ELAPSED TIME IS ' num2str(fix(toc)) ' 
SECONDS’ ] ) 


set (H_STATUS2, ‘String’, ’IS THIS BETTER THAN JANRAD 3 OR WHAT?’ ) 
pause (3) 
set(HXSTATUS2,'String','') 


save perftemp mchord DMpsi % Eccles addition - perf.m was 


$ not recognizing mchord and DMpsi. 
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39. unstructure_stab_input.m 
$ Unstructure Consruction for JANRAD98 stability control, input.m 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


IbsS STAB INEUT.Tb, 

hmd=5 STAB INPUT.hmd; 

lmd=S STAB INPUT.lmd; 

ymA-S STAB INPUT.ymd: 

im-S STAB INPUT.im, 
htd-S.STAB INPUT.htd, 

SE “TAB ”-ENPUT.1td, 
yud-S.sTAB INPUT. ytd; 

bt=5 STAB INPUT bt: 

ct=S STAB INPUT.ct; 

Rt=S STAB INPUT.Rt; 

at-S STAB INPUT.at; 
ohmt=8 STAB INPUT.ohmt; 
Tbt=S STAB INPUT Ibt: 
delta3-S STAB INPUT.delta3, 
thetalt-S STAB INPUT.thetalt, 
hvdzS-STAB-INPUT.hvd; 

Iva=S STAB INPUT.1vd:; 

yvd=5 STAB INPUT.yvd; 
alplov=S STAB INPUT.alplov; 
clvertmax-S STAB INPUT.clvertmax; 
qvq=S_STAB_INPUT.qvq; 

av-S STAB INPUT.av; 
hhd=S_STAB_INPUT.hhd; 
lhd=S_STAB_INPUT.lhd; 

yhd-S STAB INPUT.yhd, 
alploh-S STAB INPUT.alploh, 
ih=S_STAB_INPUT.ih; 
ah=S_STAB_INPUT.ah; 
qhq-s STAB INPUT.qhq; 
vhvl=S_STAB_INPUT.vhvl; 
detafdalpfh=S_STAB_INPUT.detafdalpfh; 
hwd-S STAB INPUT.hwd; 
lwd=S_STAB_INPUT. lwd; 

yWA-S STAB INPUT.ywd; 
alplow-S STAB INPUT.alplow, 
iw=S STAB INPUT.iw; 

aw-S STAB INPUT.aw; 
CtwzS STAB INPUT.ctw; 
crw=S_STAB_INPUT.crw; 
vwv1=S_STAB_INPUT.vwv1; 
detafdalpfw=S_STAB_INPUT.detafdalpfw; 
ZcqzsS SIAB-INPUT.zCg; 

xcg-5 STAB-INPUT.xcg; 
ycg-S STAB INPUT.ycg; 
Ixx=S_STAB_INPUT. IXX; 
Iyy=S_STAB_INPUT.Iyy; 
Izz=S_STAB INPUT. IZZ; 
10288) SANAE JONISUNP , 155852 5 
vfvl-S STAB INPUT.vfv1l; 
htnd-S STAB INPUT.htnd; 
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Ends STAB INPUT.ltnd; 
ytndzS, STAB INPUT.ytnd; 
dian-S STAB INPUT.dian, 
swirl=S_STAB_INPUT.swirl; 
Ytmaxn=S_STAB_INPUT.Ytmaxn; 

iist STAB INPUT EGNA: 
dbimddele=S STAB INPUT.dbimddele; 
dalmddela-S STAB, INPUT.dalmddela, 
dthetomddelc-S STAB INPUT.dthetomddelc, 
dthetotddelp=S STAB INPUT. dthetotddelp, 
sidearm-S STAB INPUT.sidearm, 
maxr-S STAB INPUT.maxr, 
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40. unstructure stab input 1.m 
$ Unstructure Consruction for JANRAD98 stability control input 1.m 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


Ib=5 STAB INPUT ID” 

hmd=5 STAB INPUT 1.hmd; 

lmdzS STABSEINBUTSI. Uma; 

ymd=5 STAB INPUT 1.ymd, 

im-S STAB INPUT 1.im; 

hvd=S5 STAB INPUT 1.hvd; 

lvd=S8 STAB INPUT 1.1lvd; 

yvdsS STAB INPUT 1.yvd; 
alplov-S STAB INPUT 1.alplov: 
clvertmax-S STAB INPUT 1.clvertmax, 
Qqvq5S STAB INPUT 1.qva: 

av-S STAB INPUT 1l.av; 

hhd-S STAB INPUT 1.hhd; 
lhdsS-STAB INPUT 1.lhd: 

yhd-S STAB INPUT 1.yhd; 
alploh-S STAB INPUT 1.alploh; 
ih=S STAB INPUT 1.ih: 

ah-S STAB INPUT 1.ah; 

qhq-S STAB INPUT 1.ghq; 
vhv15S STAB INPUT 1l.vhv1; 
detafdalpfh-S STAB INPUT 1.detafdalpfh; 
PEGS STAB INPUT Ы, 

ltdsS STAB INPUT 1.ltd: 

ytd-S STAB INPUT 1.ytd:, 

BEES STAB INPUT TI-bES 

Ct-S STAB INPUT 1.ct: 

Rt-S STAB INPUT 1.Rt, 

at-S STAB INPUT 1.at; 

ohmtz-S STAB INPUT 1.ohmt; 
ТБеб- STAB INPUT 1.Tbt: 
delta3-S STAB INPUT 1.delta3, 
thetalt-S STAB INPUT 1.thetalt, 
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41. uncstructure stab input 2.m 
$ Unstructure Consruction for JANRAD98 stability control input 2.m 
$ Written for JANRAD version 6.0 by LT David A. Heathorn 


hwd-S STAB INPUT 2.hwd; 
lwd=S_STAB_INPUT_2.lwd; 
ywd=S_STAB_INPUT_2.ywd; 
alplow=S_STAB_INPUT_2.alplow; 
iw=S_STAB_INPUT_2.iw; 
aw=S_STAB_INPUT_2.aw; 
ctw=S_STAB_INPUT_2.ctw; 
Crw=S_STAB_INPUT_2.crw; 

VWV15S STAB INPUT 2.vwvl; 
detafdalpfw=5 STAB INPUT 2.detafdalpfw, 
ze TE INEPUT 2.260; 

KOS .STAB INPUT 2.xca: 

Yycg-S STAB INPUT 2.ycg; 

Ixx=S STAB INPUT 2.Ixx; 

Iyy=S STAB INPUT 2.Ivy; 

Tzz=SSSTAB INPUT 2.127; 

Ixz-S STAB INPUT 2.Ixz; 
WEVIZS STAB TNPUT 2.vfv1: 

Ends STAB TNPUT 2.htnd: 
Ttinu-s STAB TNFPUT 2. 1tnd: 
ytnd-S STAB INPUT 2.ytnd; 
dian=S_STAB INPUT 2.dian; 
swir1-S STAB INPUT 2.swirl; 
Ytmaxn=S STAB INPUT 2.Ytmaxn; 
lttnd-S STAB INPUT 2.1ttnd: 
dbimddele=S$ STAB INPUT 2.dblmddele; 
dalmddela=S STAB INPUT 2.dalmddela; 
dthetomddelc=S STAB INPUT 2.dthetomddelc; 
dthetotddelp-S STAB INPUT 2.dthetotddelp, 
Sidearm-S STAB INPUT 2.sidearm; 
maxr-S STAB INPUT 2.maxr, 
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